use Data::Dumper;


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

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

##</code><code>##

$VAR1 = [
          [
            '1',
            '2',
            '3',
            '4'
          ]
        ];
$VAR1 = [
          '1',
          '2',
          '3',
          '4'
        ];