my $rec1ref = \substr $data, $offset, $len;
$$rec1ref = $newval;