Select Code to Download

my @a = qw(1 2);
my @b = \(@a);
...
print "Addresses do not match$/" unless "@b" eq "@c";
__END__
Addresses do not match

${$_}++ for map \(@$_),@{$a};