sub func { $_[0] = "bar"; }

my $s = "foo";
func($s);
print("$s\n");  # bar