#!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 = @array1;
my $ref_array2 = @array2;

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

print "md-check-sum for array1 :: ".unpack('L', $str)."\n";
print "md-check-sum for array2 :: ".unpack('L', $str2)."\n";

##</code><code>##

 
md-check-sum for array1 :: 2134629092
md-check-sum for array2 :: 2134629092