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