Select Code to Download

sub seek_undef {
    my ($ref,$path) = (@_,"");
...
undef at {bar}{baz}[2]{ooo}
undef at {bar}{blah}
undef at {uuu}