#                   |hash key|   [hash val: array(comma sep values)]
 %cp_samp = map{ (split ':')[0],  [split ',', (split ':')[1] ] }@ex_array;


# display result with:
print map "$_ => array [ @{ $cp_samp{$_} } ]\n", keys %cp_samp;