Or this without helper hash?

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

print Dumper $res;
[download]