c:\@Work\Perl\monks>perl -wMstrict -le
"my @list = qw(one two three four);
 ;;
 my @ra;
 for my $item (@list) {
   @ra = $item;
   printf 'print all in @ra: ';
   printf qq{$_ } for @ra;
   print 'done';
   }
"
print all in @ra: one done
print all in @ra: two done
print all in @ra: three done
print all in @ra: four done

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my @list = qw(one two three four);
 ;;
 my @ra;
 for my $item (@list) {
   push @ra, $item;
   printf 'print all in @ra: ';
   printf qq{$_ } for @ra;
   print 'done';
   }
"
print all in @ra: one done
print all in @ra: one two done
print all in @ra: one two three done
print all in @ra: one two three four done