my %mycorpus = getCorpus('C:\Users\li\test4'); 

my %counts;    


    foreach my $filename (sort keys %mycorpus) {			
		my $date;
		my $tags;
		my $comments;
		my $word;

		if ($mycorpus{$filename} =~ /(?<==)(\d{4}-\d{2}-\d{2})(?=T)/g){	
																			
			$date = $1;
		
		} 
		
		if ($mycorpus{$filename} =~ /(?<=##)(.*)(?=##)/g){
		
			$hashtags = $1;
		
		}
			
		 if ($hashtags =~ /\bsoft/gi){		
		
			 $counts{$date}++;				
		 }
	}

					
			
	foreach my $date (sort keys %counts){		
		print "$date = $counts{$date}\n";	
	}