#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Math::Vector::Real;

my $source = "./IN";

my $out = "./OUT";

open(IN, '<', $source) or die "Couldn't open $source: $!\n";
open(OUT, '>', $out) or die "Couldn't open $out: $!\n";

sub vector {
    my ($aa) = @_;
    $aa->[0] = my $one;
    $aa->[1] = my $two;
    $aa->[2] = my $three;
    my $vector = V($one, $two, $three);
}

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

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

close IN;
close OUT;