Help for this page

Select Code to Download

Select or download this

     foreach my $itemcode (keys %inventory) {
                my $quantity = $inventory{$itemcode}[2];
                if ( $quantity > 0 )