my @lat  = map { rand( 180 ) - 90 } 1 .. 300_000;
my @long = map { rand( 180 ) - 90 } 1 .. @lat;

for my $lat ( 0 .. $#lat - 1 ) {
    if ( abs( $lat[$lat] - $lat[$lat+1] ) < 0.01 ) {
        for my $long ( 0 .. $#long - 1 ) {
            if ( abs( $long[$long] - $long[$long+1] ) < 0.01 ) {
                print "\$lat[$lat] = $lat[$lat] \$long[$long] = $long[$long]\n";
            }
        }
    }
}