foreach $key (%index){
#foreach $key (sort keys %index){