my %h = map { ( split /=/, $_, 2 ) } split /,/;