>perl -wMstrict -le
"my @array = ('two', 'three', 'four');
 for my $loopvariable (@array) {
   ++$loopvariable;
   }
 print qq{@array};
"
twp thref fous