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