#!/usr/bin/perl -w
use strict;

my @array;

### works
push @array, ('X') x 2;
print @array, "\n";

### doesn't work - x is bareword?
#push @array, qw(X) x 2;
#print @array, "\n";

### works
push @array, (qw(X)) x 2;
print @array, "\n";

### works
push @array, +(qw(X)) x 2;
print @array, "\n";