find(\&do_process, "$dirname" );
   sub do_process
   {
     chomp($_);
	 if (-r "$_"){
	 $file_name = $_;
	 open (my $fh,"< $file_name");
	 while(<$fh>)
         {
	   chomp();
	     if (/\bkeyword : Multinode\b/i)
             {
	        $KeyMnode = "$file_name:$_";
             }  	   
	     if (/\bkeyword : Threads\b/i)
             {
	       $KeyThreads = "$file_name:$_";
             }  	   
	   }     
     }
   }