use warnings;
@array = qw!X! x 2;
print @array, "\n";