Select Code to Download

my @old_stock1 = ('products','here');
my @old_stock2 = ('products','here');
...
  $new_stock{$_}++;

}

for (keys %new_stock) {
  print "$_ = $new_stock{$_}\n";
}