open COMBINED, "<$outf" or die "couldn't open $outf\n";

while (<COMBINED>) {

	chomp $_;
		
		no warnings 'uninitialized';

		@coords = (split /,/,$_);
		my $lat2G = $coords[2];
		my $lon2G = $coords[1];			
		my $lat3G = $coords[5];
		my $lon3G = $coords[4];
		my $gsm_site = $coords[0];
		my $umts_site = $coords[3];
		
#}

		my @coords2G = ($lat2G, $lon2G,);
		my @coords3G = ($lat3G, $lon3G,);

		foreach my $coord2G(@coords2G) {

			print $gsm_site,$umts_site,' ', distance(@coords2G, @coords3G, "K")."\n";
			

			}
			
			
}