$list = 'a,b,c,d,e,f,g,h';

$i=0;
@pos1 = grep not($i++ % 2), split(/,/, $list);

$i=0;
@pos2 = grep $i++ % 2, split(/,/, $list);