Select Code to Download

#!/usr/bin/perl
use strict;
...
print "exists\n" if(exists($hashref->{foo}->{bar}));

print Dumper($hashref);

$VAR1 = {
          'foo' => {}
        };