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

##</code><code>##

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