Select Code to Download

my $result = ( grep $_->{date} eq $search, @{ $data } ) ? 'Found' : 'N
+ot Found';