$ perl -e '@array=qw(a b c d);print "@array\n"'
a b c d
$