I would structure your code this way:

sub do_pkg_need_from_Dist {
  my ($Distdb, $rq_nam, $rq_vr, $rq_op, $Need_msg) = @_;
  my $newpkg;
  ... set $newpkg here ...;
  return $newpkg;
}

sub process_need_from_Dist {
  my $Need_msg = sub { ... };
  my $newpkg;
  ...
  if ($rq_nam) {
    $newpkg = do_pkg_need_from_Dist(..., $Need_msg);
  } else {
    $newpkg = $Distdb->find_rpm_owning_file_to_pkg($need);
    if ($newpkg) {
      $newpkg->add(...);
    } else {
      Serious ...;
    }
  }
}
[download]