$_->[0] = group_id
$_->[1] = group_name
$_->[2] = user_name

##</code><code>##

% 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>
% }

##</code><code>##

for (my $i = 0; $i < @{$all_groups}; $i++) {

	my $j;

	print STDOUT "Start loop: \$i=$i, \$j=j\n";

	for ($j = $i; $all_groups->[$i][0] == $all_groups->[$j][0]; $j++) {
	       die if ($j > 2000); # Code to keep Apache from crashing as Perl runs amuck from my various solutions
		print STDOUT "\$i=$i, \$j=$j, user=" . $all_groups->[$j][2]. "\n";
	}

	print STDOUT "After loop: \$i=$i, \$j=$j\n";

	$i = $j;

}

##</code><code>##

Start loop: $i=0, $j=0
$i=0, $j=0, user=mash@4anything.com
$i=0, $j=1, user=rblaustein@4anything.com
$i=0, $j=2, user=sstarr@4anything.com
$i=0, $j=3, user=lzogby@4anything.com
$i=0, $j=4, user=sshankman@4anything.com
$i=0, $j=5, user=rnafziger@4anything.com
$i=0, $j=6, user=smondeaux@4anything.com
$i=0, $j=7, user=rkaiser@4anything.com
$i=0, $j=8, user=mkarsch@4anything.com
$i=0, $j=9, user=katkins@4anything.com
$i=0, $j=10, user=sgreene@4anything.com
$i=0, $j=11, user=arabschnuk@4anything.com
$i=0, $j=12, user=klange@4anything.com
$i=0, $j=13, user=vs@4anything.com
$i=0, $j=14, user=msinger@4anything.com
$i=0, $j=15, user=csultanik@4anything.com
$i=0, $j=16, user=cweber@4anything.com
$i=0, $j=17, user=earbuckle@4anything.com
$i=0, $j=18, user=tgill@4anything.com
$i=0, $j=19, user=jgrishaver@4anything.com
$i=0, $j=20, user=mkost@4anything.com
After loop: $i=0, $j=21
End loop: $i=21, $j=21
Start loop: $i=22, $j=22
$i=22, $j=22, user=dan_derosa@es.adp.com
$i=22, $j=23, user=finlay_waugh@es.adp.com
$i=22, $j=24, user=deborah_barron@es.adp.com
After loop: $i=22, $j=25
End loop: $i=25, $j=25
Start loop: $i=26, $j=26
$i=26, $j=26, user=kirshenbaumda@aetna.com
$i=26, $j=27, user=poseyll@aetna.com
$i=26, $j=28, user=dubejw@aetna.com
$i=26, $j=29, user=flanaganm1@aetna.com
$i=26, $j=30, user=wallra@aetna.com
After loop: $i=26, $j=31
End loop: $i=31, $j=31
Start loop: $i=32, $j=32
$i=32, $j=32, user=alice.stroup@aig.com