my $i=0;
my @a = ('a'...'z');
$i++%2||($_=uc)for@a;