It's a little bit perl's fault too, in this case. That looks like a sorting sub, which requires the use of the bizarre $a/$b thing, and a multi-level sort is often coded with OR'ed spaceships like that. What this needs is documentation and probably meaningfully-named hash keys in place of array indexes.