in reply to Checking existence in hash of hashes without adding entries

Here is the another way using ref 


if(ref $Log_names{BM_light_test_00_} eq 'HASH' && exists($Log_names{BM
+_light_test_00_}{device_log}))
{
        print "Exists\n";
}

[download]

In Section Seekers of Perl Wisdom