$array[0], $array[2], $array[4]... my @array = 0 .. 99; my @even = even_elemnt(@array); sub even_element { my $i = 0; return grep ++$i % 2, @_; } Test. use Test::More; my @array = 0 .. 99; my @even = even_element(@array); for my $elm (@eve…