use Data::Dumper ();

my @foo = @bar = (1, 2, 3);

print Data::Dumper::Dumper(\@foo, \@bar);