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

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

doesn't change $data->{ $_ }