my %cp = map { my ($label, $list) = (split(/:/), '');
               $label => [ split /,/, $list ]
             }
         @ex;