Select Code to Download

  my @dates = qw( 2001-12-24 1999-03-2 2004-04-23 );
  print join(', ', sort { $b cmp $a } @dates );

  2004-04-23, 2001-12-24, 1999-03-2

sort { $a->{date} cmp $b->{date} } @$array

grep { $_->{date} ge $today } ...

 ( ... )[0]->{isnext} = 1;

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

my $today = '2001-03-28';
my $array = [
...
# alternatively : 
my $thenext = (grep { $_->{date} ge $today } sort { $a->{date} cmp $b-
+>{date} }  @$array)[0];
print "\nThe next date is: $thenext->{date}\n";