get;my @a[100];map {@a[.[1]]+=.[0]},[Z] get.words xx 2;say <NO YES>[+@a[0]==max @a]