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