Select Code to Download

@KEYS = sort(@KEYS);

@KEYS = sort { $a <=> $b } @KEYS;

my @triee = map { substr($_, 8) }
            sort
...
foreach my $triee (@triee) {
   print OUTFILE $triee;
}