#!/usr/bin/perl

use Storable qw/freeze/;
use strict;

$Storable::canonical = 1;

my @x = ( '1', '2', '3', '4', '5' );
my @y = ( '1', '2', '3', '4', '5' );
my @z = ( '6', '7', '8', '9', '0' );

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