foreach my $k (keys %{hash}) {