$foo = "a c e g i k m o q s u w y";

@bar = split(/ /, $foo);

$i = -1;
foreach $foo(@bar) {
     $i++;
     delete @bar[$i] unless $i eq 2 || $i eq 4 || $i eq 6;
}
push(@bar,t);