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} }; } #### [section1] SQL1 = select * from .... SQL2 = Insert into table and so on.