Select Code to Download

$ perl -e'
use Data::Dumper;
...
                      }
        };

for my $hash ( values %ManagerInCharge ) {
    my $upper = keys %$hash;
    @{ $hash }{ 1 .. $upper } = delete @{ $hash }{ sort { $a <=> $b } 
+keys %$hash };
    }