use Data::Dumper;
my %stopper;
$x = 'stopper';
exists $x->{'y'}->{'z'};
print Dumper $x;

print Dumper \%stopper;