Select Code to Download

for ('a'..'f') {
   my $letter = $_;  # Make modifiable copy
   ...
}

    foreach my $letter ('a' ... 'c', 'd' ... 'f') {
        print " $letter";
        $letter = uc $letter;
    }

#!/usr/bin/perl -w

...
letters();
letters();
letters();