while ( my ($k,$val) = each %{ +GROUPS } ) {