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

##</code><code>##

        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 );