#!/usr/bin/perl -w
use strict;
use MyTools qw(loadwords);

my %somewords2;

# load the words from the module
&loadwords;

# load the words using the function
&loadwords2;

print "'all' is one of my words\n" if $some_words{'all'};
print "'all' is one of my words\n" if $somewords2{'all'};

sub loadwords2 {
    my @words2 = qw(a able about above across actually after again all); 
    foreach (@words2) { $somewords2{$_} = "1"; }
}