my $str = "foo";

print $str, "\n";
change(\$str);
print $str, "\n";

sub change {
    my $ref = shift;
    $$ref = "bar";
}