@anon_list = sort keys %test;
foreach my $id (@anon_list) {
   print "$id :: $test{$id}\n";
   delete $test{13};
}