for my $var (keys %hash) { ... }