c:\@Work\Perl>perl -wMstrict -le
"my @lines = (qq{foo\n}, qq{bar\n});
 ;;
 for my $ln (@lines) {
   $1 = $ln;
   chomp $1;
   print qq{'$1'};
   }
"
Modification of a read-only value attempted at -e line 1.