open FILE, "bingo_in.txt";
undef $/;
$file = <FILE>;
@lines = split /\n/, $file;
for (@lines )
{
@words = split;
}