--snip--
@lcase = (a..z);
@other = ();
for ($i = 0; $i <= $#lcase; $i++) {
 if ($i % 2) {
  @other[$i] = uc($lcase[$i]);
 }
 else {
  @other[$i] = $lcase[$i];
 }
}

print "lcase:";
foreach $l (@lcase) { print " $l"; }
print "\n";

print "other: ";
foreach $o (@other) { print " $o"; }
print "\n";
--snip--