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