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