my $old_id;
for my $rec (@all_groups) {
  if (not defined $old_id or $old_id <=> $rec->[0]) {
    # Spit out header
    $old_id = $rec->[0];
  }
  # Print user record
}