[Ueguvil]

Fixed it and cut some code out that I'm sure was unnecessary (just finding snippets from around the forums)

sub EVENT_SPAWN{
   my @item_PHARA = (1628, 1845, 1848, 2377, 10845, 10851, 10912, 10913, 24648);
   my $item1 =  quest::ChooseRandom( @item_PHARA ) ;
   quest::addloot($item1, 0, 0);
  
  @item_PHARA2 = grep {$_ != $item1 } @item_PHARA;
   my $item2 =  quest::ChooseRandom( @item_PHARA2 );
   quest::addloot($item2, 0, 0);

   @item_PHARA3 = grep {$_ != $item2 } @item_PHARA2;
   my $item3 =  quest::ChooseRandom( @item_PHARA3 ) ;
   quest::addloot($item3, 0, 0);
	}