Select Code to Download

my @data = map [split], grep /\S/, <IN>;

        printf OUT "%s to %s Distance-%.5f\n", $data[$i][1], $data[$j]
+[1], $data[$i][11], $data[$j][11], distance( \@coords_i, \@coords_j )
+;