$ perl -E 'sub foo { $_[0]= 5 } foo(4)'
Modification of a read-only value attempted at -e line 1.