Select Code to Download

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