sub foobar { @_ = @_; $_[0] =~ s/foo/bar/; $_[0]; }