% for (my $i = 0; $i < @{$all_groups}; $i++) {
%   my $j = $i;
Start loop: $i=<% $i %>, $j=<% $j %><br>
%   while ($all_groups->[$i][0] == $all_groups->[$j][0]) {
%
%   # for ($j = $i; $all_groups->[$i][0] == $all_groups->[$j][0]; $j++) {
%       die if ($j > 2000);
$i=<% $i %>, $j=<% $j %>, user=<% $all_groups->[$j][2] %><br>
%       $j = $j + 1;
%   }
After loop: $i=<% $i %>, $j=<% $j %><br>
%   $i = $j;
End loop: $i=<% $i %>, $j=<% $j %><br>
% }