[Budaworm]

The method above looks even more compact but you gotta write it as

sub EVENT_AGGRO {
    my @Phrases = (
        "Your faithless devotion to a false god leaves me no choice.",
        "I shall rid the land of another infamous villain.",
        "Your foul deeds have earned my contempt.",
        "${race}s like you are better left dead than alive.",
        "It's ${class}s like you who have ruined your own lands, You'll not ruin mine!",
        "Heathen! Unbeliever! Norrath must be cleansed!"
    );
    quest::say("Frrroooaaakkk!");
    quest::say("$Phrases[int(rand($#Phrases+1))]");
}

to get it to work.