my($Records);
 foreach $Records(@EventList)
{
	if($Records =~ /(.*)(\,)(.*)/)
	{		
			if($Records ne $eventChoice){
						print   "<option value='$Records'>$3</option>\n";
						}

	}
}

&PopulateEventDropDown(@EventList,$eventChoice);

sub PopulateEventDropDown
{
	my($Records);
	my $eventChoice = shift;
	my @Records = @_;

	foreach $Records(@Records)
	{
		if($Records =~ /(.*)(\,)(.*)/)
		{  	if($Records ne $eventChoice)
					{
						print "<option value='$Records'>$3</option>\n";
						} 
				}
	} #end foreach
}