sub has_alpha
  { my $string = shift;
    return
      scalar
        map { index($string , $_) == -1 ? () : 1 }
            ('a' .. 'z' , 'A' .. 'Z') ;
  }