Help for this page
Use of uninitialized value in split
%cp = map{ (split /:/)[0], [split /,/, ((split /:/), '')[1] ] } @ex;