>perl -le"sub f { $_[0]=456; } $x=123; f($x); print $x;"
456