sub foo {
   $_[0] = 'def';
}

my $x = 'abc';
foo($x);
print("$x\n");   # def