#!/usr/bin/perl -w
open IN, "minmaxin.csv" || die ("did not open infile"); 
open OUT, ">>minmaxtoprint.csv" || die ("did not open outfile");

     while (<IN>) {
      my @line = split(/,/, $_);  
print OUT "$line[0]-$line[4],$line[1]-$line[5],$line[2]-$line[6],$line[3]-$line[7]";}
close IN;
close OUT;

##</code><code>##

#!/usr/bin/perl -w
open MIN, "min.csv" || die ("did not open infile");
open MAX "max.csv" || die ("did not open infile");
open OUT, ">>minmaxtoprint.csv" || die ("did not open outfile");

     while (<MIN>) {
      my @minline = split(/,/, $_);
while (<MAX>){my @maxline = split(/,/, $_);}, print OUT "$minline[0]$line[0] ... etc