18:18 >perl -E "sub foo { return 'bar'; } $y = foo; say $y;"
bar

18:19 >perl -E "$y = foo; sub foo { return 'bar'; } say $y;"
foo

18:20 >