sub foo {
    my $h = shift;
    %$h = ();
    $h->{'c'} = 5;
    1;
}