use Data::Dumper;
my $hashref;
print Dumper $hashref;
if(exists $hashref->{a}->{b}) 
{
# Do something
}
print Dumper($hashref);