foreach (@words) { my $some_words{$_} = "1"; }

##</code><code>##

  @EXPORT = qw/ loadwords %somewords /;

  use vars '%somewords';

  ## in the loadwords function

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

##</code><code>##

  %somewords = map { $_ => 1 } @words;