$hash{$a}{$b}{$c}{$d} = $d;  # before
vec($data, $a*4000*10*8 + $b*10*8 + $c*8 + $d, 8) = $d; # after