my @points = map[ int( rand 500 ), int( rand 500 ) ], 1 .. $N;