Fixed it and cut some code out that I'm sure was unnecessary (just finding snippets from around the forums)
Code:
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);
}