sub dbl_look {
    my $cells = shift;
    my $chk = shift;
    my $cnt = 0;
    for my $p (@points2[0 .. $chk]) {
        (exists $cells->{$p->[0]} and exists $cells->{$p->[0]}{$p->[1]}) and ++$cnt;
    }
    exists $cells->{'notfound'} and die;
    exists $cells->{'notfound2'} and die;
    exists $cells->{'notfound3'} and die;
}