package MyTools;
use strict;

BEGIN{
    use Exporter ();
    use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
    $VERSION     = 0.01;
    @ISA         = qw (Exporter);
    @EXPORT      = qw ();
    @EXPORT_OK   = qw (loadwords);
    %EXPORT_TAGS = ();
}

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

1;

__END__