use warnings;
use strict;

my @arr = (0,3,4,5,8,10,12,15);
             #   #   #     #
my @var = map {$arr[$_]} grep {$_ & 1} 1..$#arr;

print "@var";