use the CPAN, use Config::IniFiles

C:\>more configfile.ini
# This is a configuration file.

[TITLE]
Name = John
Location = USA

[HEAD]
Name = James
Location = Canada

[BODY]
Name = Mayer
Location = UK

C:\>more config.inifiles.pl
use Config::IniFiles;
use Data::Dumper;

tie my %ini, 'Config::IniFiles', ( -file => "configfile.ini" );
die Dumper( \%ini );

C:\>perl config.inifiles.pl
$VAR1 = {
          'TITLE' => {
                       'Location' => 'USA',
                       'Name' => 'John'
                     },
          'BODY' => {
                      'Location' => 'UK',
                      'Name' => 'Mayer'
                    },
          'HEAD' => {
                      'Location' => 'Canada',
                      'Name' => 'James'
                    }
        };

C:\>
[download]