open (SIDX, "$data_dir/search.idx");
open (SIDX2, "$data_dir/search2.idx");

my @sidx = <SIDX>;
my @sidx2 = <SIDX2>;

@skeyw = grep {$_ ne ""} @skeyw;
@premiumkeyw = grep {$_ ne ""} @premiumkeyw;

my $regexp = join('|', @skeyw, @premiumkeyw);
$regexp = qr/$regexp/;

(@skeyw) = split(/ /,$fields{'keywords'}); # SPLITTING SIDX FILE


(@premiumskeyw) = split(/ /,$fields{'keywords'}); ## SPLITTING SIDX2 FILE


$nrkeywords = push(@skeyw); 

$premiumnrkeywords = push(@premiumskeyw);