my $i=0; map {$keywordhash{$_}=(++$i);} @keywords;