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