use Data::Dumper;


my @a = ['1','2','3','4'];
my $a = ['1','2','3','4']; 

print Dumper(\@a);
print Dumper($a);