pack '(N/a*)*', list of strings;

$foo = pack '(N/a*)*', "A", "BB", "CCC", "DDDD";

$foo eq ( "\0\0\0\1A" . "\0\0\0\2BB" . "\0\0\0\3CCC" . "\0\0\0\4DDDD" );