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

##</code><code>##

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

##</code><code>##

                my $vv=doStringTidy($hash{$k});
                delete $hash->{$k};
                $hash{$kv} = $vv;

##</code><code>##

                my $vv=doStringTidy($hash->{$k});
                delete $hash->{$k};
                $hash->{$kv} = $vv;