while( my $k = each %hash ) { ... }
foreach my $k ( keys %hash ) { ... }