$aa->[0] = my $one;
    $aa->[1] = my $two;
    $aa->[2] = my $three;

##</code><code>##

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