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;

}