my @s1_events = 
map { $_->[0] } 
sort { $a->[1] <=> $b->[1] } 
map {[$_, $_->{month}]} 
@$events;