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