doc,

I was looking at qw() for maintenance purposes; so some one would be able to type in a new word if need be instead of the extra comma, quote, quote--Yes, picky, I know. But, again, this is used a lot in Perl to allow for easy modification.

Your code will not work because q(X) x 2 results in ('XX') not ('X', 'X') as you can see via:

#!/usr/bin/perl -w
use strict;
my @array;
push @array, q(X) x 2;
print join ' - ', @array, "\n";
@array = ();
push @array, ('X') x 2;
print join ' - ', @array, "\n";
[download]