>perl -le"@a=qw(A B C); print lc @a"
3