$coords_found_flag = 0;
open(KMLFILE, $kml_file) or die("cannot open file : $kml_file $! ");
while ($line = <KMLFILE>) {
	if ($line =~ m/<name>(.*)<\/name>/) {
		$current_name = $1;
		$coords_found_flag = 0;
	}
	elsif ($line =~ m/<coordinates>(.*)<\/coordinates>/ && $coords_found_flag == 0) {
		$coords{$current_name} = $1;
		$coords_found_flag = 1;
	}
}
close(KMLFILE);