my @var = @arr[ grep {$_ & 1} 1..$#arr ];