@ushort=unpack("S*", $buf);  # Extract oodles of UINT16s