Assuming you just want the first two sorted values, just change the foreach line to:

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

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

Hope this helps,

Russ