# point is 3,5 $x = 3 $y = 5
next if $seen{"$x,$y")++; #checks and then increments in one line