@KEYS = sort(@KEYS);

##</code><code>##

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

##</code><code>##

my @triee = map { substr($_, 8) }
            sort
            map { (split(/;/, $_))[5] . $_ }
            <INFILE>;

foreach my $triee (@triee) {
   print OUTFILE $triee;
}