#!/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;