my $signature = md5(pack('(J/a*)*', @array));

##</code><code>##

my $signature = pack('(J/a*)*', @array);