print "\nDelete children of $test :\n";
foreach $key (keys %index) {
    ...
    delete $index{$key};
}

##</code><code>##

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