<>;$\+=$-=-($j+=$-=$_-$j)+($_=++$i)-$\for@p[glob<>];print