Global symbol "@list1" requires explicit package name at 733911.pl line 5.
Global symbol "$count1" requires explicit package name at 733911.pl line 9.
Global symbol "@list1" requires explicit package name at 733911.pl line 9.
Global symbol "$num1" requires explicit package name at 733911.pl line 10.
Global symbol "$num2" requires explicit package name at 733911.pl line 12.
Global symbol "$indx" requires explicit package name at 733911.pl line 14.
Global symbol "$count1" requires explicit package name at 733911.pl line 15.
Global symbol "$var1" requires explicit package name at 733911.pl line 17.
Global symbol "$num1" requires explicit package name at 733911.pl line 17.
Global symbol "@list1" requires explicit package name at 733911.pl line 17.
Global symbol "$indx" requires explicit package name at 733911.pl line 17.
Global symbol "$indx" requires explicit package name at 733911.pl line 18.
Global symbol "$var2" requires explicit package name at 733911.pl line 19.
Global symbol "$num2" requires explicit package name at 733911.pl line 19.
Global symbol "@list1" requires explicit package name at 733911.pl line 19.
Global symbol "$indx" requires explicit package name at 733911.pl line 19.
Global symbol "$indx" requires explicit package name at 733911.pl line 20.
Global symbol "$var3" requires explicit package name at 733911.pl line 21.
Global symbol "@list1" requires explicit package name at 733911.pl line 21.
Global symbol "$indx" requires explicit package name at 733911.pl line 21.
Global symbol "$indx" requires explicit package name at 733911.pl line 22.
Execution of 733911.pl aborted due to compilation errors.

##</code><code>##

for (
   [ test1 => 10, 22 ],
   [ test2 => 31, 17 ],
   [ test3 =>  4, 45 ],
) {
   my ($test, $base1, $base2) = @_;
   for my $num1 (200..400) {
      my $var1 = $base1 + $num1;
      for $num2 (300..600) {
         my $var2 = $base2 + $num2;
         ...
      }    
   }
}

##</code><code>##

for (
   [ test1 => 10, 22 ],
   [ test2 => 31, 17 ],
   [ test3 =>  4, 45 ],
) {
   my ($test, $base1, $base2) = @_;
   my $var1 = $base1 + 200;
   for (200..400) {
      my $var2 = $base2 + 300;
      for (300..600) {
         ...
         ++$var2;
      }    
      ++$var1;
   }
}