foreach $pair (@pairs) 
  {
    ($key,$value) = split (/=/, $pair);
     chomp ($value);
 
     foreach $name (@names) 
     {
      $name =~s /\s$key/$value/ig;
      @newrecords = (@newrecords,"$name");
     }
  }