sub foo { my $x=shift; $x='foo'}