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