while ( my $line = <FILE> ) {
        chomp $line;
        my @word = split ' ', $line;