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