Select Code to Download

@EXPORT      = qw (loadwords %some_words);

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