foreach (my ($k,$v) = $str =~ /([^,]+),([^,]+)/g) {