foreach my $Temp (@IsNew){
       my %param_2 = (
          'Flag'=>$Temp,  #<-- TEST
          );

       foreach my $product (@Products) {
        my %param = (
          'Code'=>$product,
        }
        push(@loop_data_1, \%param);
       }

      $loop_data_3{$counter} = @loop_data_1;
      $param_2{'ProductList'} = \$loop_data_3{$counter};
      push(@loop_data_2, \%param_2);
      @loop_data_1 = ();
     }

     $tmpl->param('NumOfProductLists'=>\@loop_data_2);