while (<DATA>) {
   # ...
   open(DATA,"> test4.txt") or die $!;;
   # ...
}