Select Code to Download

#!/usr/bin/perl
use warnings;
...
my @search_results = sort { $b->[0] <=> $a->[0] } @results;

print $_->[0], "\t", $_->[1], $/ for @search_results

#Records
my @Record;
push @Record, int rand(100) for (0..999);

#!/usr/bin/perl
use warnings;
...
for (sort { $b->[0] <=> $a->[0] } @results) {
    print "$_->[0] \t $_->[1] \t $Record[$_->[0]]\n";
}

# this bit is untested, 'tis bedtime for me
open DATA, "$id_file" or die "something useful";
...
    print "$_->[0] \t $_->[1] \t $Record\n";
}
# goodnight.