sub hasalpha { local($_) = @_; isalpha chop and return 1 while length; return; }