#!/your/perl/here
use warnings;
use strict;
use Data::Dumper;

my $all_lowercase = '{' . join( ',', 'a'..'z') . '}';
my @x = glob "$all_lowercase" x 4;

print "size of \@x = ", scalar @x, "\n";
print Dumper @x;

__END__