open( firstfile, "DFLOG1.txt");
open( secondfile, "DFLOG2.txt");

while (<firstfile>) {
		chomp;
		@blines=grep(/dev/, $_);
			foreach $bline (@blines) {
				@BRead = split(" ", $bline);
				$bmount = $BRead[0];
				$btotdsk = $BRead[1];
				$buseddsk = $BRead[2];
				$bfreedsk = $BRead[3];
			}
while (<secondfile>) {
			chomp;
			@elines=grep(/dev/, $_);
			foreach $eline (@elines) {
			@ERead = split(" ", $eline);
			$emount = $ERead[0];
			$etotdsk = $ERead[1];
			$euseddsk = $ERead[2];
			$efreedsk = $ERead[3];
		}
print (OUTFILE " ,$bmount, $btotdsk, $busedsk, $bfreedsk, $etotdsk, $euseddsk, $efreedsk\n");