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