sub do_for_partners {
  my ($item, $action) = @_;
  if (exists $partners{$item}) {
    $action->($item, $partners{$item});
  }
}

# And the above example.
do_for_partners($item, sub {
  push @allmembers, shift;
  push @allmembers, (shift)->{partners};
});