my $max = 703;
my @letters;
my $current = 'a';
for (1 .. $max) {
    push @letters, $current++;
}