my $i = 1;
my @bar = grep $i++ % 2, ('a'..'z');