sub vector {
    my ($aa) = @_;
    return V(@$aa);
    }

##</code><code>##

my $some_scalar = V(@$original_array_reference);