my $n = keys( %hash ) -1; 
@hash{ 0 .. $n } = delete @hash{ sort { $a<=>$b } keys %hash };