use Data::Dump qw(pp);
.....
print pp \@name;