Select Code to Download

$VAR1 = {
          'WaterSports' => [
...
                          ]
                        ]
        };

$VAR1 = {
      'WaterSports' => [
...
                          ]
                    ]
        };

open(INFILE, "products-id.txt")|| die "Cannot open products-id.txt fil
+e"; 
open (OUTPUT,">$output") or die ("Can't open file $output $!");
...

}