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