<>=~/ .* /; $\+= ($==$_/$&)>${$h=\${0-$_%$&}}+2*$' ? 2*$'+1 : $=-$$h, $$h=$= for sort{$a-$b}map$_+9e9,glob<>; print