foreach $foo(@foo)
{
  undef $bar;
  ...
  $bar = $some + $thing;
}

##</code><code>##

foreach $foo(@foo)
{
  $bar = 0;
  ...
  $bar = $some + $thing;
}