foreach $pair ( @pairs ){
  ($key,$value) = split (/=/, $pair);
  chomp ($value);
  $s{lc $key} = $value;
}
foreach $name ( @names ){
      $name =~s/(\s(\w+))/$s{lc $2}||$1/ieg;
}