my %config;
my $section;

open(CONF, 'config.ini')
  || die "Can't open conf.ini: $!\n";

while (<CONF>) {
  next unless /\S/;
  chomp;

  if (/\[(.+)\])/) {
    $section = $1;
  } else {
    push @{$config{$section}}, $_;
  }
}