You can eliminate the map by taking a slice:

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