%h = map { chomp $_; split( ',', $_, 2 ) } <DATA>;

# or

%h = map { /^([^,]+)\s*,\s*([^\n\r,]+)/ } <DATA>;