sub main {
    foo(my $x = 1);
    say $x;
    return 0;
}

sub foo {
    say ++$_[0] . ' in foo';
}