# Calculate distance between all atom coordinates

foreach $i ( 0 .. $count-1 ) {

    foreach $j ( $i + 1 .. $count-1 ) {
    
    $dist = sqrt(
            ($arrayx[$i] - $arrayx[$j])**2 +
            ($arrayy[$i] - $arrayy[$j])**2 +
            ($arrayz[$i] - $arrayz[$j])**2
        );
    
    print "$dist\n";
    
    }
}