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