#!/usr/bin/perl -w

use strict;
use warnings;

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

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