{
  my $i=1;
  sub addone {
  my $y=shift;
  $i++;
  return $i+$y;
  }
}
$i=10;
print addone 2;