use Data::Dumper;
print Dumper [qw(a b c)], \qw(a b c);