my $res;
foreach my $entry (@$data) {
    push @$res, $entry unless grep { $_->{"type"} eq $entry->{"type"} } @$res;
}

print Dumper $res;