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