my @keys = sort {
        $info{$b}->[64] <=> $info{$a}->[64]
                ||
        length($b) <=> length($a)
                ||
            $a cmp $b
    } keys %info;