use Config::IniFiles;
$cfg = new Config::IniFiles( -file => uc "test.ini", -nocase => 1);
@FileExten = $cfg -> Parameters(FileExten);
foreach $FileExten (@FileExten)
{
     $FileExt = uc $cfg -> val(FileExten, $FileExten);
     print "$FileExtension is $FileExt\n";
}