You got some typos

        foreach my $k (keys %{hash}) {
[download]

should probably be

        foreach my $k (keys %{$hash}) {
[download]

and

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

should be

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

Since $hash is a hashref.