in reply to Changing key values, i.e. renumbering keys?

But if you don't want to use an array, then this snippet could do:

for $hash (values %ManagerInCharge) {
    $i = 0;
    %$hash = (map {;++$i => $_} map $hash->{$_}, sort {$a <=> $b} keys
+ %$hash);
}

[download]
use strict; use warnings; print "Just Another Perl Hacker\n";

In Section Seekers of Perl Wisdom