sub f {
  our %d;
  local *d = shift;
  $d{f}='f';
}