Perl quest problem

[moydock]

I am learning a lot about perl quests but I seem to be stuck on making multiple items turn in for a reward. Does anyone see something wrong with this coding? When I turn in these 4 items I get no response from the npc.


sub EVENT_ITEM
{
if(
($itemcount{5018} ==1) &&
($itemcount{5019} ==1) &&
($itemcount{5020} ==1) &&
($itemcount{1179} ==1)
)
{
quest::summonitem(5021);
}
}