variables not reseting?

[spider661]

ok this is the quest i got now

my $Random;

sub EVENT_SPAWN 
{ 
quest::setnexthpevent(99);
}

sub EVENT_HP 
{ 	
if($hpevent == 99)
{ 
$Random = quest::ChooseRandom(Warrior,Cleric,Paladin,Ranger,Shadowknight,Druid,Monk,Bard,Rogue,Shaman,Necromancer,Wizard,Magician,Enchanter,Beastlord,Berserker);

quest::shout("Only The powers of a $Random can defeat me!");
}
}

sub EVENT_ATTACK
{
if($class eq $Random)
{
quest::say("You are the right one to kill me");
}
else
{
quest::say("You can not kill me you are a $class and you need to be a $Random");
}
}

this is all with no #reloadquest

first time it shouts only the powers of a rouge can defeat me. then it says You can not kill me you are a warrior and you need to be a BLANK

repop hit again it shout only the powers of a wiz can defeat me and then it says You can not kill me you are a warrior and you need to be a rouge
and so on

what its doing is first time its blank then every time after it its what it said the previous time its not clearing it right.