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