بازگرداندن عناصر در موقعیت زوج یک لیست

#!/usr/local/bin/perl
use strict;
use warnings;

sub array_slice {
	my $odd_or_even = shift @_;
	my @arr;
	
	my $i = $odd_or_even eq "even" ? 0 : 1;
	
	while ($i <= $#_) {
		$arr[@arr] = $_[$i];
		$i += 2;
	}	

	return @arr;
}

my @arr = array_slice "even", @ARGV;

print "Full array is: [@ARGV].\n";
print "Even position elements are: [@arr].\n";