Select Code to Download

foreach my $itemcode (keys %inventory) {
  my $quantity = $inventory{$itemcode}[2];
  print "<$quantity>\n";  # to replace if block
}