sub add (  nm1 => $val1, $nm2 => $val1  } 
 
sub add  { local %_ = ( @_ ); 
  $_{nm1} + $_{nm2} 
}