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)