{
   local $tied = 'x';
   ...
}