my %lexicon = map{ <word> => <supplementary data> } $csv -> parse    # words to match against, and supplementary data to go with matches
foreach <tweet> {
    foreach <word_in_tweet> {
        if( exists $lexicon{ <word_in_tweet> } ) {
            save $lexicon{ <word_in_tweet> } TO tweet.result_data;
        }
    }
}