@EXPORT = qw/ loadwords %somewords /;

  use vars '%somewords';

  ## in the loadwords function

  for(@words) { $somewords{$_} = "1"; }