>perl -wMstrict -le
"my @ra = (1, 2, 3, 4);
 print qq{@ra};
 ;;
 for my $n (@ra) {
   $n *= $n;
   }
 print qq{@ra};
"
1 2 3 4
1 4 9 16