open( OUTPUT, $files[0] ) or die... 
 while( <DISTLISTS> ) {
  if (not $. % 200) {
   close OUTPUT;
   open OUTPUT, $files[$./200] or die...
  }
  print OUTPUT, $dist_split;
 }
 close OUTPUT;