DB<108> sub inc_a { $_[0]++; return }
 
  DB<109> $x=1; inc_a($x); print $x
2
  DB<110> inc_a(1)
Modification of a read-only value attempted at (eval 13)[/usr/share/perl/5.10/perl5db.pl:638] line 2.