sub f { $_[0] = "abc" }
$s = "1234";
f(substr($s, 0, 1));
# $s is now abc234