Select Code to Download

my @box;
for (...) {
...
              $MinX, $MinY, $MaxX, $MaxY,
              ($MaxX - $MinX) * ($MaxY - $MinY)];
}

@box = sort { $a->[5] <=> $b->[5] } @box;

use Sort::Key qw(nkeysort_inplace);

nkeysort_inplace { $_->[5] } @box;

# untested!
...
  }
  return ($max, @max);
}