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