I'm surprised noone posted this yet.

sub has_alpha {
    local $_ = shift;
    my %c;
    @c{ unpack "(A1)*", $_ } = ( 1 ) x length;
    $_ && return 1 for @c{ 'A'..'Z', 'a'..'z' };
    return;
}
[download]