#!/usr/bin/perl
use strict;
use warnings;
use Config::IniFiles;

my ( %ini_file, $ini_sect );
tie %ini_file, 'IniFiles', ( -file => "file1.txt");
foreach $ini_sect ( keys %ini_file ) 

    {
        %$ini_sect = %{ $ini_file{$ini_sect} };

    }