sub undefRef{ 
    my $ref = shift; 
    undef @{ $ref };
}