<>; for(sort{$a-$b}glob<>){ $\+=abs ++$i-$_ } print