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