open(my $fh, "< bingo_in.txt") || die "Couldn't read file: $!\n";
while(<$fh>){
  foreach my $word (split){
    #process word
  }
}