Select Code to Download

 
#!/usr/bin/perl -w
open IN, "minmaxin.csv" || die ("did not open infile"); 
...
print OUT "$line[0]-$line[4],$line[1]-$line[5],$line[2]-$line[6],$line
+[3]-$line[7]";}
close IN;
close OUT;

#!/usr/bin/perl -w
open MIN, "min.csv" || die ("did not open infile");
...
     while (<MIN>) {
      my @minline = split(/,/, $_);
while (<MAX>){my @maxline = split(/,/, $_);}, print OUT "$minline[0]$l
+ine[0] ... etc