use strict;

my @list = qw(b d e c a f g w i l z x p o q s);

print sort @list;
print "\n\n";
jptxs:/home/jptxs $ perl -w alpha
abcdefgilopqswxz

jptxs:/home/jptxs $