for my $key (0 .. 100) {