Select Code to Download

#!/usr/bin/perl -w

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

my $p = \@a;

my $p = [@a];