Select Code to Download

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

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