my $count = 0; 
%hash = map { $count++ => $a{$_} } sort { $a <=> $b } keys %hash;