$ perl -le '$x = qw(a b c); print $x'
c

$ perl -le '$x = q(a b c); print $x'
a b c