Trivial random loot help

[N0ctrnl]

I use a variation of the following to add a random item to an NPC when it spawns (from global_npc.pl):

sub EVENT_SPAWN {
  $roll = int(rand(100)) + 1;

  if($roll >= 90) {
    my $itemid=(132522);

    $npc->AddItem($itemid);
  }
}

What I would like to do is to remove the item if a player is too many levels over the NPC when they loot the corpse. Is there a way to key off of that? I know there's a $corpse->RemoveItem(); I could use, but what would I trigger on? It looks like EVENT_LOOT is only when an item is plucked.

Any help is appreciated Just can't come up with a good way to do this so far.