sub Foo { use strict; @_ }
$x = 1;