use List::Util qw{ any };
my $result = ( any { $_->{date} =~ /^$search$/ } @$data ) ? 'Found' : 'Not Found';