my $eventchoice = pop @_;
my @records = @_;