print unpack "H*", pack "f*", 1, 1, 1, 1, 1.5, 1.5

##</code><code>##

@floats = unpack "f*", pack "N*", unpack "V*", $floatingpointdata;