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