Select Code to Download

 ...
 my @flipped_hash = reverse sort {$a->[0] <=> $b->[0] } flippout %bdry
+;
  ...

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

 $bdry{1}{2} = 3;
 $bdry{3}{4} = 2;
 $bdry{2}{3} = 1;

 ...
 sub flippout {
...
  return @f
 }
 ...