for (@mem) {
    next unless my $member = $obj->can ("_do_$_");
    $obj->$member ();
}