@file_array =<*.txt> or die $!; 
foreach $file (@file_array)
     {
     open FH, "$file", or die $!;
     while (<FH>)
          {
          if (/(\S+):(\S+).*\n/)
               {
               s/$1/$hash{'$1'}_$2/g;
               }
          }
     close FH;
      }