Help for this page
use strict; use warnings; ... print " $k2 - $hash{$k1}{$k2}\n"; } }
Results: Cotton: Part - 45 ... Documents - 100 Plastic: Money - 340