#!/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__

##</code><code>##

size of @x = 456976
$VAR1 = 'aaaa';
$VAR2 = 'aaab';
$VAR3 = 'aaac';
$VAR4 = 'aaad';
$VAR5 = 'aaae';
[snip]
$VAR456972 = 'zzzv';
$VAR456973 = 'zzzw';
$VAR456974 = 'zzzx';
$VAR456975 = 'zzzy';
$VAR456976 = 'zzzz';