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