Select Code to Download

    for my $i (0 .. $#data) {
    for my $j (0 .. $#data) {
...
        distance(\@coords_i, \@coords_j);
    }
    }

C:\Users\Fred\Desktop\pm>perl dis1.pl
Argument "CA" isn't numeric in subtraction (-) at dis1.pl line 38, <IN
+> line 4 (
#1)
...
Argument "O" isn't numeric in subtraction (-) at dis1.pl line 38, <IN>
+ line 4 (#
1)
Done.

%s to %s Distance-%.5f
12NC1%s to %s Distance-%.5f
13NC2%s to %s Distance-%.5f
...
41ON3%s to %s Distance-%.5f
42OC2%s to %s Distance-%.5f
43OC1