#!/usr/bin/perl

#my $text = '1,2,3,4,5,6,7,8';
my $text = 'a,b,c,d,e,f,g,h,i,j';

my (@even, @odd);
push @{ $_ % 2 ? \@odd : \@even }, $_ for split /,/, $text;

print "odd = @odd, even = @even\n";

__END__

output (first $text):
odd = 1 3 5 7, even = 2 4 6 8

output (second $text):
odd = , even = a b c d e f g h i j
[download]

Actually, that is the one I added later. The one with the counter was there from the beginning — in fact, the first solution I wrote was the one with the slice (I added the foreach-push one before posting because the slice is too obscure).

Makeshifts last the longest.

I added the foreach-push one before posting because the slice is probably too obscure for most people

Assuming you are talking about:

my (@even, @odd) = @field[
    map { $_, $_ + @field / 2 } 0 .. ( @field / 2 ) - 1
];
[download]

it's not just obscure, it doesn't work. @even will get assigned all the fields. You need something like:

my (@even, @odd);
(@even[0..(@field/2)-1], @odd[0..(@field/2)-1]) =
[download]