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