sub alter {   
    grep $_, map { uc is_name($_) } @_;
}