my %res;

for my $entry (@$data) {
  $res{join "|", sort %{$entry}} = $entry; 
}    

@$data = values %res;

print Dumper $data;