use strict;

my @lc = ('a'..'z');
my (@uc, $counter);

for my $letter (@lc) {
    $counter++;
    if ($counter % 2) {
	$letter = uc($letter);
    }
    push (@uc, $letter);
}

print "@uc" . "\n";