sorry 4 that confusing. If U want to know, I solve it that way..

 
print "ProcessFile: $Filebase\t$Countmod\n"; 
open (FH, $Filename) or die "Data $! $Filename  "; 
    
# the below could be made more efficient but will do for now.
while (<FH>)
{
   $Countmod++; 
}    
close FH;
    
# save list one as TXT
open (my $OUTPUT, ">>" . $Report)|| die "TDM does not exist$!\n";    

# save the values in a hash
$return_hash->{$Filebase}=$Countmod;
print $OUTPUT "$Filebase\t$Countmod\n";    
print "$Filebase\t$Countmod\n";        
close ($OUTPUT)
[download]

greetz
IceZero