in reply to Re: Hidden Secrets of PERL
in thread Hidden Secrets of PERL

My $qm = '?,'x scalar(@allsearchterms);

The argument at the right of x is in scalar context, so no need to call scalar. Besides it, you can use join to get rid of the chop:

my $qm = join ',', ('?') x @allsearchterms;

--
David Serrano