sub grabFloat { my $FourBytes = 4; my $floatTemp = 'f'; read(IN, my $record, $FourBytes); $record = reverse $record; my $value = unpack($floatTemp, $record); return $value; }