use Data::Dumper;
print Dumper($hashref);

# or even just

print 'success' if exists $hashref->{foo}{foo};