>perl -wMstrict -le
"$_ = 'same as it ever was';
 ;;
 my @ra = (1, 2, 3, 4);
 ;;
 $_ = $_ + 990 for @ra;
 print qq{@ra};
 ;;
 print 880 + $_ for 1, 2, 3, 4;
 ;;
 print $_;
"
991 992 993 994
881
882
883
884
same as it ever was