recursive assign?

[bcoffin]

Does anybody know a good script to recursively process/assign smarty variables?
This is what I'd like to do...

foreach($vals as $k=>$v) {
  if(is_array($v))
  {
    foreach($v as $ak=>$av)
    {
        $this->smarty->assign(array($k[$ak] => strtoupper($av)));
    }
  }
  else
  {
      $this->smarty->assign(array($k => strtoupper($v)));
  }
}

..however, I would like it to process all levels of an array, no matter how deep... ideas?