time.nqp

my %hash;
my int $num := 1000000;
my int $i := 0;
while $i++ < $num {
    %hash{$i} := 1;
}
my @array := (2, 3, 4, 5, 6);
for @array {
    $i := 0;
    while $i < $num {
        nqp::bindkey(%hash, $i, 1);
        #%hash{$i} := 1;
        $i := $num + $_;
    }
    $i := 0;
    while $i < $num {
        nqp::deletekey(%hash, $i);
        $i := $num + $_;
    }
}