{
  my $foo;
  sub foo {
    $foo += @_;
  }
}