foreach my $id (sort keys %test) {
   delete $test{13};
}

print(scalar keys %test, "\n");  # 2