Select Code to Download

my @odd  = grep {state $i=1; $i++ % 2}  qw{a 1 b 2 c 3};
my @even = grep {state $i=0; $i++ % 2}  qw{a 1 b 2 c 3};

perl -e 'use v5.10; my @odd = grep {state $i=1; $i++ % 2}  qw{a 1 b 2 
+c 3}; say @odd;'