in reply to Re^3: Recursive search in nested hash for selective keys
in thread Recursive search in nested hash for selective keys

I passed a third parameter as $call with a value "main" if called from outside or value "sub" if called recursively within. 
$key_val = {} if ($call eq "main");

[download]

In Section Seekers of Perl Wisdom