foreach $key (%index){
      delete $index{$key} if ($key =~ /$test.+/);
}

##</code><code>##

foreach (keys %index) { delete $index{$_} if /$test.+/ }