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