in reply to split line and populate hash shortcut ?

Try This 
while(<DATA>)
{
 unless((/^\s$/) | (/^#/))
 {
 $config{$`}=$',if(/=/);
 }
}

[download]

In Section Seekers of Perl Wisdom