my @array;
while (my ($filename, $number) = &get_both) {
   push(@array, [ $filename, $number ]);
}

my @sorted = sort { $a->[1] <=> $b->[1] } @array;