| perl and unixcat 1.csv >>newfile.csv|cat 2.csv >>newfile.csv | sort newfile.csv
 open (FILE, '<<newfile.csv');
 @LINES = <FILE>;
 foreach $line (@Lines) {
 chomp $line;
 ($foo, $moo, $stew, $coo, $poo) = splice(',', $line);
 //I can do anything now with this line now
 }
 |