foreach my $section (Win32::AdminMisc::ReadINI ('some.ini', '', '')) { foreach my $key (Win32::AdminMisc::ReadINI ('some.ini', $section, '')) { my $value = Win32::AdminMisc::ReadINI ('some.ini', $section, $key); } }