Select Code to Download

my @array = (1, 2, 3);
print Dumper \@array;

my $aref = [1, 2, 3];
print Dumper $aref;