my %h = ();

print "found" if $h{somekey};

print %h;