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