if ($rfv eq ARRAY )
{
    if (defined($wa)) {               # arrays  special
        $wa? @{$p->{$vn}} : $addrof ? \$p->{$vn} : $p->{$vn}
    }
}
elsif ($rfv eq HASH ) { $p->{$vn} } 
elsif ($addrof) { return $p->{$vn} }
else  { return $p->{$vn} }