do {$keywordhash{$_}=(++$i);} for @keywords;