my $x = 1; sub foo { $x } #### $MAIN_X --- \ -> +---+ $FOO_X ------> | 1 | +---+ #### +---+ $MAIN_X -----> | 9 | +---+ +---+ $FOO_X ------> | 1 | +---+