$ perl -E'         $x = foo; say $x; sub foo { "sub" }'
foo

$ perl -E'sub foo; $x = foo; say $x; sub foo { "sub" }'
sub