my %hash = mapcar { @_ } map { [ split /,/ ] } split(":", $str);