sub words_from_file {
    my $self = shift;
    my $file_path = shift;
    my @word_list;
    open WORD_FILE, "< $file_path"
	or die "Could not open $file_path:  $!\n";
    while (<WORD_FILE>) {
        chomp;
        push @word_list, split ", ";
    }
    \@word_list;
}