if (%$href) { print "has elements" }

##</code><code>##

my @keys = keys %$href;
my @vals = values %$href;
while (my ($key, $val) = each %$href) { ... }

##</code><code>##

for (keys %$href) {
    $_ = "foo";
}