my $x = \qw(a b c);
print "$x $$x\n";