<>;@l=glob<>;<>;/.$/,$ $`=--$k+4e3*(($a=$h{$`}//=[(0)x@l])->[@l]+=$a->[$p=-65+ord$&]|=$l[$p]*(50+250/(++$ $&+4)))for<>;print++$l," $_@{$h{$_}} "for sort{$$b-$$a}keys%h