Select Code to Download

#!/usr/bin/perl

...
print "x = y\n" if (freeze(\@x) eq freeze(\@y));    #   True
print "x = z\n" if (freeze(\@x) eq freeze(\@z));    #   False
print "x != z\n" if (freeze(\@x) ne freeze(\@z));   #   True