Hi Monks!

I have a call to SQL store procedure than I need to filter for single quotes and replace with two single quotes, I am trying to see if there is a way to do this search and replace inside of "map", here is the code sample I am referring to:
If in "$data->{$_}" has a string like; "Maria's" I need it converted to "Maria''s".

my @allparms = qw(  letters loc type name zip);

my $sql = exec_select( "call store_proc(" . join(',', ('?') x @allparm
+s ) . ")",
                        map { $data->{ $_ } || '' } @allparms
                   );
[download]

Thanks for looking!