my @field = split /,/, $text;

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