my $h= {
(4,-1),
(2,6),
(6,4),
(3,5),
(5,-1),
(99,-1),
};

##</code><code>##

$hh{2}{6}{4} = -1;
$hh{3}{5}    = -1;
$hh{99}      = -1;