Select Code to Download

my $p = \@a;

my $p = [@a];

my @p = @a;

use strict;
use warnings;
...
print "array copy: ", Dumper \@copy;
print "reference: ",  Dumper $ref;
print "ref copy: ",   Dumper $refcopy;

foreach (@{$p}) { print "element $_\n"; }

print "element $_\n" for @$p;