my @recordset;
my %exit;
while ( my @event = fetchrow_array() ) {
    $exit{ $event[2] } = 1 if $event[1] eq 'exit';
    push @recordset, [ @event ] unless $exit{ $event[2] };
}