(grep {$_->{date} ge $today} sort {$a->{date}cmp $b->{date} } @$array)[0]->{isnext} = 1;