perl -MO=Deparse -e'$foo = qw/a b c d/;print $foo;'
$foo = ('???', '???', '???', 'd');
print $foo;
-e syntax OK