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