I am guessing that you are comparing each hash element across both AoH, one element at a time. This can be slow because it requires accessing each element and comparing each element. Instead of doing this, you could create some new indication for each array element (i.e. join('', %{$AoH[$i]}) and then compare those indicators.