for (0..15) {
    $a{'a'}{$_} = 0;
    print scalar %{$a{'a'}}, "\n";
}