foreach $key (keys (%hash)) {
             replace ($hash{$key});
     }

##</code><code>##

     sub replace {
            chomp;
            s/'/\\'/g;
     }

##</code><code>##

     sub replace {
          chomp $_[0];
          $_[0] =~ s/'/\\'/g;
     }