Your solution is great, but i want to correct it.

it must be look like

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