## add a new $nextevent at $time:
push @{$db{$time}}, $nextevent;
## get the lowest event list
keys %db; # reset pointer
my ($time, $events) = each %db; # lowest events