%keywordhash = map {$_ => 1} @keywords;