use Text::CSV_XS 'csv';
my @words = map { $_->{Lemma} } @{
 csv in => "freqrnc2011.csv", headers => "auto", sep_char => "\t"
};