open(S, 'file.txt');
while($text = <S>){
@words = split(' ', $text);
for $word(@words){
my $filename = 'report.txt';
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
print $fh "$word\n";
close $fh;
print "done\n";
}};