my $cnt = 0;
for (sort keys %hash) {
    $hash{$_} = ++$cnt;
}