From unpack  sub ordinal { unpack("W",$_[0]); } # same as ord()

So  sub ords { pack '(A4)*', unpack 'W*', @_ } though this only pads spaces to the right, and truncates