my $data = [
   {
 
     'type' => 'Paper'
   },
   {

     'type' => 'Paper'
   },
   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },

];

##</code><code>##

my $res;

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

     push @$res, $res{$entry->{type}};
   
 }
print Dumper @$res;