@sorted_events = sort { $dates{$a} <=> $dates{$b} } keys %dates;