while(<FILE>){
foreach my $n (@natures){
if($_ =~ /$n/){
open (OUT, ">> $n.txt") or die "blah blah $! \n"
print OUT $n;
close OUT;
}
}
}