perl -le '@a = qw(b c a); @a = sort @a; print "@a"'