Select Code to Download

use strict;
use warnings;

...
        print "        $k2 - $hash{$k1}{$k2}\n";
    }
}

Results:
    Cotton:
        Part - 45        
...
        Documents - 100       
    Plastic:
        Money - 340