use 5.012;

sub doit {
  my ($strref) = @_;
  $strref = "blubb";
}

my $str = "foo";
doit(\$str);
say $str;