$VAR1 = [
   {
     'name' => 'Discount',
     'reference' => '100       ',
     'type' => 'Paper'
   },
   {
     'name' => 'Documents',
     'reference' => '100       ',
     'type' => 'Paper'
   },
   {
     'name' => 'Money',
     'reference' => '340       ',
     'type' => 'Plastic'
   },
   {
     'name' => 'State',
     'reference' => '40        ',
     'type' => 'Cotton'
   },
   {
     'name' => 'Slice',
     'reference' => '30        ',
     'type' => 'Cotton'
   },   {
     'name' => 'Part',
     'reference' => '45        ',
     'type' => 'Cotton'
   },
]

##</code><code>##


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


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

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