c:\@Work\Perl\monks>perl -wMstrict -e
"for my $i (0 .. 3) {
   for my $j (0 .. 3) {
     print qq{system command \$i $i, then for \$j $j \n};
     }
   }
"
system command $i 0, then for $j 0
system command $i 0, then for $j 1
system command $i 0, then for $j 2
system command $i 0, then for $j 3
system command $i 1, then for $j 0
system command $i 1, then for $j 1
system command $i 1, then for $j 2
system command $i 1, then for $j 3
system command $i 2, then for $j 0
system command $i 2, then for $j 1
system command $i 2, then for $j 2
system command $i 2, then for $j 3
system command $i 3, then for $j 0
system command $i 3, then for $j 1
system command $i 3, then for $j 2
system command $i 3, then for $j 3