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