foreach $key (%index) {
    delete $index{$key};
}