$ perl -E 'say 1, foo; sub foo { 3  }'
1foo
$ perl -E 'sub foo { 3 }; say 1, foo'
13
$ perl -E 'say 1, foo(); sub foo { 3  }'
13

##</code><code>##

$ perl -E 'eval "sub foo { 3 }"; say 1, foo();'
13