Select Code to Download

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

my $some_scalar = V(@$original_array_reference);