my @sorted = sort keys %$href;
my $value = $href->{$sorted[0]};
%$href = ();
$href->{$sorted[0]} = $value;