foreach my $key (keys %HASH) {