while (my @CFG = <CFGFILE>)
{
   foreach $_(@CFG)
   {
      ...
   }
   print ...
}