for ( @{ $my_array } )
{
    print "$_\n";
}


print "Results: Paper:
                      Discount - 100
                      Documents - 100

                Plastic:
                         Money - 340
                Cotton:
                         State - 40
                         Slice - 30
                         Part  - 45