You simplify the second sort condition from using ?: to using ||:

# this:
($b->[7] eq '' ? 0 : $b->[7]) <=> ($a->[7] eq '' ? 0 : $a->[7]

# to this:
($b->[7]||0) <=> ($a->[7]||0)
[download]