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