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;
         ...
      }    
   }
}