foreach my $key ( keys %hash ) {