for (1 .. $#temp) {
   print DATAFILEOUT $temp[$_];
}