foreach my $d1 (@data) { print OUT " The vector of Atom ($d1->[0], $d1
+->[1], $d1->[2])is : %f\n", vector($d1); }