<>;print$_+100-$s/@a>>1,$/for@a=grep{$s+=$_;1}glob<>