c:\@Work\Perl\monks>perl -wMstrict -le "my @sorted = sort qw(CORE1 CORE12 CORE8 CORE233 COREA11 COREA12 COREA130 COREA115) ; print qq{@sorted}; " CORE1 CORE12 CORE233 CORE8 COREA11 COREA115 COREA12 COREA130