Select Code to Download

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