while (my $fields = $csv->getline( $data )) {
    my $word = $fields->[0];
    $trie->add_data( $word => [ $fields->[1], $fields->[2], $fields->[3] ] );

	my $info = $trie->lookup_data($word);
	printf "Just added %s\n Sentiment: %s \t Neg Sentiment: %s \t Topic: %s\n", $word, $info->[0], $info->[1], $info->[2];
}