use Data::Dumper;
my @data = qw( foo bar baz moo mar );
print(Dumper(\@data));