for (my $x = $lat_start; $x <= $lat_end; $x++)