<>; @a=sort{$a-$b}glob<>; $e=pop@a; while(@a){ $e+=int(pop(@a)/2); } print$e;