read(FH, $val, 128);

Please keep in mind that read FILEHANDLE,SCALAR,LENGTH

'Attempts to read LENGTH bytes of data ...' (emphasis mine - from perldoc -f read)

You mentioned that you're working with 128 bit 'frames', so you'll want to do 16 byte reads in order to get a 'frame'.