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