http://www.perlmonks.org?node_id=1016112


in reply to Re^2: How come undef eq '' ??
in thread How come undef eq '' ??

Struggling with this: 
my $data ;
$data = ref($hash) eq 'HASH' ? $$hash{$name} : $hash ;
$data = $$data{CONTENT} if ref($data) eq 'HASH' ;

[download]
There is some circular reference also ... Guess I have to stick with catching __WARN__

In Section Seekers of Perl Wisdom