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