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