@a[glob<>]=1..<>;$\+=$-=$s-$_-$\,$s+=$_ for@a;print