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