for( my $h=&e; my ($k, $v)=each %$h; ) {...}