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