my %seen = map{join(":", values %{$_}), $_} @array;