<>;print 30*grep$_*10<=$s,grep{$s+=$_;1}glob<>