Select Code to Download

$ perl -E 'say grep {++$i %2} <a b c d e f g>'
aceg
$ perl -E 'say grep {$i++ %2} <a b c d e f g>'
bdf

$ perl6 -e 'my @a = "a".."g"; say @a[0, *+2 ... +@a]'
aceg

@a[0, *+2 ... *]

say <a b c d e f g>.pairs.grep({.key !% 2})>>.value