sub letters {
    foreach my $letter ('a' .. 'f') {
        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