# perl script12
readonly(lonely)=134217728
Modification of a read-only value attempted at f2 line 7.
readonly(named)=134217728
Modification of a read-only value attempted at f2 line 7.
readonly(-named)=0
readonly(-loop)=0
readonly(-loop)=0
readonly(-loop)=0
readonly(-loop)=0
readonly(-loop)=0