@list1 = qw/10 22 test1 31 17 test2 4 45 test3/;

while()
{
   foreach $num1 (200..400)
   {
      foreach $num2 (300..600)
      {
            $indx = 0;
            foreach(1..3)
      	  {
             $var1 = $num1 + @list1[$indx];
             $indx++;
             $var2 = $num2 + @list1[$indx];
             $indx++;
             $var3 = @list1[$indx];
             $indx++;
             # further code do anything.....
            }
      }	
   }
}