my @levels = qw/bar baz/; 
foreach(@levels) {

$_ = 'exists('.$_.')';
}
my $code = '('.join(' and ', @levels).')';
#$code is now: (exists($foo{bar}) and exists($foo{bar}{baz})
if (eval $code) {
 #do whatever
}