tie %ini,'Config::IniFiles', (-file=>$sample);
#...
print "$_\n",for(@arr);