my %groups = map { my(undef, $g, @g) = split; $g, [@g] } grep /^GROUP/, <INFO>;