Select Code to Download

sub main {
    foo(my $x = 1);
    say $x;
...
sub foo {
    say ++$_[0] . ' in foo';
}

sub main {
    bar(my $x);
    say $x;
...
sub bar {
    $_[0] = 'assigned in bar';
}