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

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

##</code><code>##

sub main {
    bar(my $x);
    say $x;
    return 0;
}

sub bar {
    $_[0] = 'assigned in bar';
}