sub isalpha { 
    no warnings "numeric";
    my($p) = @_;
    0==++$p; 
}
sub hasalpha { 
    my($s) = @_;
    isalpha(substr($s, 0, 1, "")) and return 1 while 
        length($s);
    return; 
};