my %hash;
while (my ($filename, $number) = &get_both) {
   $hash{$filename} = $number;
}

my @sorted_files = sort { $hash{$a} <=> $hash{$b} } keys %hash;