my $t = 0;
for( a..z ){ $t ^= 1; push @ary, $t ? $_ : uc $_ }
print @ary