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