Report question

Question: Is there a compact Perl operation to slice alternate elements from an array?