my @foo = qw(a b c d);
my @bar = @foo;

print "What I want\n" if (@foo eq @bar);