sub for_obj { $_[1]->() for $_[0]; $_[0] }