sub foo {
    my $z = 4;
    return $z;
  }