>perl -wMstrict -le
"my @ra1 = qw(foo bar);
 my @ra2 = qw(does not get here);
 ;;
 for my $file (@ra1, 'zonk', @ra2) {
   $file .= '-appendage';
   print qq{'$file'};
   }
"
'foo-appendage'
'bar-appendage'
Modification of a read-only value attempted at -e line 1.