Select Code to Download

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

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

print $ref_array1;
print $ref_array2;

#!/usr/bin/env perl

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