my $rec;
do_something( $rec) while read(FILE, $rec,$reclength);

##</code><code>##

@hd = unpack 'h*', $rec;
@floats = unpack 'f*', $rec;