#!C:\Perl5.16\bin\perl.exe

use Data::Dumper;
use Digest::MD5  qw(md5 md5_hex md5_base64);

my @array1 = (
[1,'John','ABXC12132328'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322']
);

my @array2 = (
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322'],
[0,'John','ABXC12132322']
);

#print Dumper(\@array1);

my $ref_array1 = Dumper( \@array1 );
my $ref_array2 = Dumper( \@array2 );

my $str  = md5_hex($ref_array1);
my $str2 = md5_hex($ref_array2);

print "md-check-sum for array1 :: " . $str  . "\n";
print "md-check-sum for array2 :: " . $str2 . "\n";

__END__
C:\test>1121378
md-check-sum for array1 :: b636a47153af27317478e3bca3632602
md-check-sum for array2 :: a4882627a89775602ab2e33762a70e81