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