my (@even, @odd);

my $i = 0;
push @{ $i++ % 2 ? \@odd : \@even }, $_ for split /,/, $text;