$a[$_]++for glob<>;$"='';print"@a"=~/^1(1.*|.*1)1$/?YES:NO