sub Read_INI_files_get_initialData{ my ( %ini_file, $ini_sect ); tie %ini_file, 'IniFiles', ( -file => "/home/testtool/config/InitialData.ini" ); foreach $ini_sect ( keys %ini_file ) { %$ini_sect = %{ $ini_file{$ini_sect} }; }