use bigint;<>;print eval join'/2+',sort{$a-$b}glob<>