...
 for my $k ( @flipped_hash ) {
    print " \$bdry{$k->[1]}{$k->[2]} = $k->[0];\n",
 }
 ...