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