Read the comments from the bottom up.

my @var =          # Store the elements in @var.
map { $arr[$_] }   # Get the elements at the remaining indexes.
grep { $_ & 1 }    # Filter out the even indexes.
0..$#arr;          # Create a list of @arr's indexes.
[download]