<>;map$\+=abs$_-++$i,sort{$a-$b}glob<>;print