Yes you did do something with it. In order to check whether exists $foo{bar}{baz}, obviously, $foo{bar} must be a hash reference. Perl DWIMs (most of the time) by creating an empty hashref on multilevel lookup attempts, but sometimes, like in your case, that is undesired. What you have to do is clunky: check every level of the hierarchy yourself. Something like

my $cursor = \%foo;
for(qw(foo bar)) {
    undef $cursor, last unless exists $cursor->{$_};
    $cursor = $cursor->{$_};
}

print "exists\n" if $cursor;
[download]

You want to put this in a function like

sub exists_novivify {
    my $cursor = shift;
    for(@_) {
        undef $cursor, last
            unless exists $cursor->{$_};
        $cursor = $cursor->{$_};
    }
    $cursor;
}

print "exists\n" if exists_novivify \%foo, qw(bar baz);
[download]

Update: removed duplicate exists. Thanks BrowserUk.

Makeshifts last the longest.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.