tie my %hash,'Tie::SortHash',{a=>1,b=>2};
delete $hash{'x'};
print join "\t",keys %hash;