print(
 (length(join('',map { $mystring =~ /$_/ ? '' : 'X' } @a)) 
 ?   'not ' 
 :   ''),
 "all letters occur\n");