#!perl;
use strict;
use warnings;
use 5.10.1; # features

my @quotes = ( q/'/, q/"/ ); 
push @quotes, map q/'/, 0 .. int(rand(10));
push @quotes, map q/"/, 0 .. int(rand(10));

say 'quotes ', join( ' ', @quotes);

my @Various_Apostrophes = 
      map { $_ .= 
                 ( int(rand(40)+2) % 2 == 1 ) 
                 ? q!'! 
                 : q!"! ;
          } @quotes;

say 'V_A ', join( ' ', @Various_Apostrophes);

my $scquery = 
		join('',
			q/'SELECT CONCAT( /, 
			q/ ?,/ x (scalar(@Various_Apostrophes)-1), 
			q/ ? )'/
		);

say 'scq ',$scquery;

##</code><code>##

my $sth = $dbh->prepare( $scquery );

$sth->execute( @Various_Apostrophes );

exit 0;