#/usr/bin/perl

use strict; 
use Data::Dumper;

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

];

my $res;

 for my $entry (@$data) {
     
     #$entry->{type} = [] unless exists $entry->{type};
     
     push @$res, $entry->{type} unless $entry;
   
 }

print Dumper @$res;