while (my @CFG = ) { foreach $_(@CFG) { ... } print ... } ##

##

my @CFG = ;

foreach $_(@CFG)
{
   ...
}

print ...

##

##

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

##

##

while ()
{
   ...
   print ...
}