while () { chomp; ($title, $content) = split("\t"); open (OUT, ">","$title.$count") or die "can't open"; $count++; print OUT "$content"; close OUT; }