%_=(%_,$_[0],$%);

##</code><code>##

  $_{$_[0]} = $%;