my $res;

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

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