foreach my $key (%HASH) {