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