sub words_from_file {
    my $file_path = shift;
    my @word_list;
    
    open WORD_FILE, "< $file_path"
        or die "Could not open $file_path:  $!\n";
    @word_list =  map { split /,\s*|\n/ } <WORD_FILE>;
    close WORD_FILE 
        or die "Could not close $file_path:  $!\n";
    return \@word_list;
}