Select Code to Download

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

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

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

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