my $signature_1 = pack( '(J/a*)*', '', undef );
my $signature_2 = pack( '(J/a*)*', undef, '' );

printf( "Signatures are %s\n",
        ( $signature_1 eq $signature_2 ) ? 'equal' : 'unequal' ); # equal!