I have OCD related to while loops and hash assignments. Also a liking of maps, to an unhealthy level. :P

I always liked this syntax better for stuff like this.

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

# or

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

Wonko