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

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