$infile1 = "sept13.csv";
$infile2 = "sept14.csv";
		
open (infile1);
@array1=<infile1>;
close(infile1);
		
open (infile2);
@array2=<infile2>;
close(infile2);