while ( <FILE> ) {

        my $line = $_;

        chomp ($line);
        my @word = split / /, $line;