foreach $j (  sort keys %test  ) {