Help for this page
@KEYS = sort(@KEYS);
@KEYS = sort { $a <=> $b } @KEYS;
my @triee = map { substr($_, 8) } sort ... foreach my $triee (@triee) { print OUTFILE $triee; }