sub a1 {
  local *c = shift;
  $c{a} = 'a';
}