($id, @dwords) = unpack ("A16 x72 (L<)*", $data);