Or with a XOR toggle:

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print