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

# Prints...
 a b c d e f
 a b c d e f
 a b c d e f