Select Code to Download

open(OUT1, ">> resultsfile.csv")||die("Failed to open resultsfile.csv:
+ $!\n");
open(IR, "< file1.csv")|| die("failed to open file1");
...
        }   
    }   
}

__Data__
...
tl,Waseem,Alder,06/11/2009,11/30/2011,morefields,...

__End of Data__

!/usr/bin/perl -w

...

        $i++;
}