I'm not trying to be sarcastic or ignorant, but to get effective feedback from the PerlMonks community, please peruse this link.

I've quickly reformatted your post within <P> and <code> tags so that it is easier read:

OP:

I am new to Perl and have a question about handling the output for reading and writing two separate files. I am reading in Unix/AIX/Linux dflog files and them performing calculations on the space utilization of the individual file systems. The section of my code reads as follows:

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, $e
+useddsk, $efreedsk\n");
[download]

Where I am having difficulty is getting the lines of the two files to sync. Depending on where I place my print statement I either get the last filesystem entry from the first file being compared to all the filesystems in the second or vice verse. Any insight as to how to correct my issue is greatly appreciated.

/OP