sub search
{
   my ($arrival_date, $departure_date, $number_of_guests) = @_;
   
   validate_search_cache($arrival_date, $departure_date);
   
   my @search_results = ... do SELECT query to get a list of available room-package combination between $arrival_date and $departure date for $number_of_guests ...

   return @search_results;
}

sub validate_search_cache
{
   my ($arrival_date, $departure_date) = @_;

   my @validated_dates = ... do SELECT query that returns a list of dates between $arrival_date and $departure_date having valid combinations of room-package ...

   my @invalid_dates = ... look for dates between $arrival_date and $departure_date that doesn't exists in @validated_dates ...

   foreach (@invalid_dates) {
      initialize_search_cache($_);
   }
}

my @field_list = (
   { 
      name => 'valid_price', 
      op => sub { ... computation to check if price valid on   
                  a certain date ... },
   },
   {
      name => 'available_room_count',
      op => sub { ... calculcation to get the available room 
                  count on a certain date ... },
   },
   ...
);

sub initialize_search_cache
{
   my ($date) = @_;

   my @keys;
   my @values;
   foreach (@field_list) {
      push @keys, $_->{name};
      push @values, $_->{op}->($date);
   }

   my $sth = $dbh->prepare("INSERT INTO (".(join ',', @keys).") VALUES (".(join ',', map "?", @values).")";
   $sth->execute(@values);
}