my @dets;
while( my( $obs, $det, $x, $y ) = getNextRow() ){
    $dets{ $det }{ int $x }{ int $y }++;
}