<>;map$%+=$_,@_=glob<>;print$%-$_*$#_,$"for@_