Select Code to Download

$VAR1 = {
      'WaterSports' => [
...

                    ]
        };

open(INFILE, "products-id.txt")|| die "Cannot open products-id.txt fil
+e"; 
...
print OUTPUT Dumper(\%AllProducts);

}

  push @{$AllProducts{$Category}}, ($ID, [$Name, $Type, $Size]);