DB<30> x map { $_ = 1 } 2 Modification of a read-only value attempted at (eval 40)[c:/Perl_524/lib/perl5db.pl:737] line 2. DB<31>