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