while ( my $line = <INFO> ) {
   next unless $line =~ /^GROUP/;
   chomp $line;
   my (undef,$groupname,@groupmembers) = split(/\s+/,$line);
   push(@{$groups{$groupname} }, @groupmembers);
}