sub foo {
  my $ref = shift;

  %$ref = ( all => new );
}