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