my $i = 0;
foreach my $href ( @array ) 
{
    last if date_larger_than( $href->{ 'date' }, $today );
    $i++
}
# Mark it, if you want, assuming found...
if ( $i < scalar @array ) { #
   $array[$i]->{ 'isnext' } = 1;
}