Select Code to Download

use strict;
use warnings;
...
    #print $results . "\n"; 
    print $x->[0] . "\t" . $x->1 . "\n"; 
}

my @temp = reverse sort { $a->[0] cmp $b->[0]} @results;