my $ref_array1 = @array1;
my $ref_array2 = @array2;

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

##</code><code>##

print $ref_array1;
print $ref_array2;

##</code><code>##

#!/usr/bin/env perl

use Modern::Perl;

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']
);

my @array3 = @array2;
#print Dumper(\@array1);

my $md5_1 = md5_hex(Dumper(\@array1));
my $md5_2 = md5_hex(Dumper(\@array2));
my $md5_3 = md5_hex(Dumper(\@array3));

say 1,' ',$md5_1;
say 2,' ',$md5_2;
say 3,' ',$md5_3;