sub slashU {
     my $cnt=0;
     for (@words){
             ++$cnt if "\U$_" eq 'ABCB';
     }
     return $cnt;
}