while (my $s = <SFILE>) {
chomp($s);
my @words = split / /, $s;