Select Code to Download

my @files = qw( A.csv B.csv C.csv D.csv E.csv );

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