sub c {
    my $d = shift;
    $d->{$_} = $_ foreach (0 .. 200);
}