my @subA = grep( $_ % 4 == 1, 0..$#array )
my @subB = grep( $_ % 4 == 2, 0..$#array )
e.t.c.