hash{-10} = bar
hash{-1} = foo
hash{12} = baz

##</code><code>##

hash{0} = bar
hash{1} = foo
hash{2} = baz

##</code><code>##

$counter=0;
foreach (sort keys(%hashone))
{
	$hashone{$counter} = $hashone{$_};
	delete $hashone{$_};
	$counter++;
}

##</code><code>##

hash{-10} = bar
hash{1} = foo
hash{20} = baz