sub undef_ref {
    my $ref    = shift;
    undef @$ref;
    print '=' x 20;
    print "\n";
    print Dumper (@$ref);
}