foreach my $event_id (( sort { $Sorts{$sortBy}->() } keys (%database) )[0,1]) {

# Put the sort call in parens, followed by [] for whatever elements
# you want