for(@s1_events){
	@{$_->{list}}=sort {$a->{date}<=>$b->{date}} @{$_->{list}};
}