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