Group 1 name Email 1, Email 2, Email 3, Email 4... Group 2 name Email 5, Email 6, Email 7...

##

print <
    
        Group Name
        Group Members
        Edit Mail Group
    
EOTableHeaders

for (my $i = 0, my $j = 0; $i < (scalar(@{$all_groups}) - 1); $i++, $j++) {

	print "\n";

	print qq|| . $all_groups->[$i][1] |\n|;
        print qq||;

        while ((defined($all_groups->[($i + 1)][0])) && ($all_groups->[$i][0] == $all_groups->[($i + 1)][0])) {
		print $all_groups->[$i][2] . "
";
		$i++;
	}
	print $all_groups->[$i][2];

	print "\n";
	print qq|";
}
    


##

##

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

	print "Group name: " . $all_groups->[$i][1] . "\n";

	while ((defined($all_groups->[($i + 1)][0])) && ($all_groups->[$i][0] == $all_groups->[($i + 1)][0])) {
		print "\tEmail: " . $all_groups->[$i][2] . "\n";
		$i++;
	}

	print "\tEmail: " $all_groups->[$i][2] . "\n";

}