perl -MO=Deparse,-p -e '$a->[1] cmp $b->[1] or $a->[2]//"" cmp $b->[2]//""'