perl foreach

как засунуть в foreach не весь массив, а только первый и 3 его элементы? $_[1] $_[3] foreach my $a (@_) { func($a); }