my($all,$com,$csv,$ctr,$desc,$dir,$fname,$found,$fsize,
   $line,$longline,$null,$one);
my($parm,$parms,$pattern,$seekrc,$value);
my(@coms,@csvin,@grep,@parms,@seekrc);

##</code><code>##

    ($start,$stop,$adv,$desc) = split(/\,/,$line);
    $start =~ s/^\s+//g;
    $stop =~ s/^\s+//g;
    $adv =~ s/^\s+//g;
    $desc =~ s/^\s+//g;

##</code><code>##

    while(defined($line = <IN>)) {
        ... 
        $temphash{'size'} = $size;
        $temphash{'crc'} = $crc;
        if($dir eq "" || $csvdirs == 1) {
            ...
            $temphash{'dir'} = $good;
        } elsif($csvdirs == 2) {
            ...
            $temphash{'dir'} = $good . "/" . $dir;
        } else {
            $temphash{'dir'} = $dir;
        }
        $bighash{$name} = { %temphash };
    }