Select Code to Download

my %group2user;
foreach my $rec (@all_groups) {
...
foreach my $group_id (sort keys %group2user) {
  # Do whatever
}

my $old_id;
for my $rec (@all_groups) {
...
  }
  # Print user record
}