for my $key (keys %hash) {