$SPARCfloat = pack 'a4a4', reverse unpack 'a4a4', pack 'f', 1222222345.678e9;;