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

  foreach (@keys) { print "$_ is @{$info{$_}}[64] <br>" }