# Here's the alphabet.
my @alphabet = 'A'..'Z';

# Remove 22 elements from @alphabet, starting at $alphabet[2].
splice(@alphabet, 2, 22);

# Now my dictionary-authoring project will take much less time!
print "$_\n" for @alphabet;