Select Code to Download

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

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