Maybe try changing:

&PopulateEventDropDown(@EventList,$eventChoice);
[download]

to

PopulateEventDropDown($eventChoice, @EventList);
[download]

and this

 my $eventChoice = shift;
 my @Records = @_;
[download]

is then more simply described as

 my ($eventChoice,@Records) = @_;
[download]

hth