use Data::Dumper ;

my @arr = qw(1 2 3 4 5) ;
print Dumper(\@arr) ;