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

##</code><code>##

>perl -le"sub f { $_[0]=3; } $#a=2; f($#a); print $#a;"
3