my( $foo, $bar ) = @_; #### my $foo = shift; my $bar = shift; #### sub x { $_[0] =~ s/foo/bar/; $_[0]; } print x('food'), "\n"; # does not work