$total_words += split while(<DATA>);