Select Code to Download

my @var = map { $arr[$_*2+1] } 0..int(@arr/2)-1;

my @var;
push(@var, $arr[$_*2+1])
   for 0..int(@arr/2)-1;