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