use strict;

  my(@results, @premium_results);
  open(RESULTS, "$data_dir/search1.idx")
    or die "$data_dir/search1.idx: $!";
  while ( $line = <RESULTS> ) {
     foreach my $keyword ( @keywords ) {
     if ( $line =~ /\b$keyword\b/ ) {
       push @results, $line;
       last;
     }
  }
  close(RESULTS);

  open(PREMIUM, "$data_dir/search2.idx")
    or die "$data_dir/search2.idx: $!";
  while ( $line = <PREMIUM> ) {
    foreach my $keyword ( @keywords ) {
      if ( $line =~ /\b$keyword\b/ ) {
        push @premium_results, $line;
        last;
      }
    }
  }
  close(PREMIUM);