my %data_hash;
for my $element ( @array ){
    my $type = delete $element->{type};
    my %tmp = %$element;
    push @{ $data_hash{$type} }, \%tmp;
}