open FILE, "bingo_in.txt"; while () { my @words = split; }