use strict;
use warnings;

my @array1;
my @array2;
my $ref1 = \@array1;
my $ref2 = \@array1;
my $ref3 = \@array2;

print "Maybe what you want\n" if $ref1 == $ref2;
print "Not what you want\n" if $ref1 == $ref3;

##</code><code>##

Maybe what you want