#!/use/bin/perl 
 
use strict; 
use warnings; 
 
use Data::Dumper; 
 
my @points = (); 
open(IN, "/Users/anu/out.pl") or die "$!"; 
while (my $line = <IN>) { 
  chomp($line); 
  my @array = (split (/\s+/, $line))[6, 7, 8]; 
  print "@array\n"; 
  push @points, [ @array ]; 
} 
close(IN); 
 
print '@points : ', Dumper \@points; 
 
for my $i1 ( 0 .. $#points -1 ){ 
  my ( $x1, $y1, $z1 ) = @{ $points[$i1] }; 
  for my $i2 ( 1 .. $#points ){ 
    my ( $x2, $y2, $z2 ) = @{ $points[$i2] }; 
    my $dist = sqrt( ($x2-$x1)**2 + ($y2-$y1)**2 + ($z2-$z1)**2 ); 
    print "distance from ( $x1, $y1, $z1 ) to ( $x2, $y2, $z ) is $dist\n"; 
  } 
}

 
open my $out_fh, '>', 'distances.txt' or die "cannot open distances.txt: $!\"; 
 
for my $i1 ( 0 .. $#points -1 ){  
  my ( $x1, $y1, $z1 ) = @{ $points[$i1] };  
  for my $i2 ( 1 .. $#points ){  
    my ( $x2, $y2, $z2 ) = @{ $points[$i2] };  
    my $dist = sqrt( ($x2-$x1)**2 + ($y2-$y1)**2 + ($z2-$z1)**2 );  
    print $out_fh "distance from ( $x1, $y1, $z1 ) to ( $x2, $y2, $z ) is $dist\n" or die "cannot print to distances.txt: $!\n;  
  }  
} 
 
close $out_fh or die"cannot close distances.txt: $!\n";

if ($i1==$i2) { 
   $i2++; 
}