@a = qw[1 2 3 4 5]; 
@b = qw[1 2 3 4 5]; 
@c = qw[1 2 3 4 6];

print "a is equivalent to b" if join("\0", @a) eq join("\0", @b);

a is equivalent to b

print "a is equivalent to c" if join("\0", @a) eq join("\0", @c);