use strict;
use warnings;
use Data::Dumper;

my @ar = qw( a b c );
print Dumper(\@ar);
print Dumper(@ar);
__END__
$VAR1 = [
          'a',
          'b',
          'c'
        ];
$VAR1 = 'a';
$VAR2 = 'b';
$VAR3 = 'c';