-n0 for$n(A..Z){$;[pos=-split/$n/i].="$n $#_\n"x!!$#_}print@