while (<FILE>)
{
  chomp;
  s/^\s+//;
  s/#.*//;
  s/\s+$//;

  next unless length;

  if (/^(.*?\S)\s*=\s*(.*)$/)
  {
    push @{$CONFIG{$key}}, $val;
  }
}