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