for (my $i=0; $i<@a; $i+=3) {
   my @group = @a[$i..$i+2];
   ...
}