my @words = split(/\s/,$file[3]);