Select Code to Download

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

print "@var";

3 5 10 15