use List::Util;
my $min_key = min(keys %h);
%h = ($min_key, $h{$min_key});

##</code><code>##

%h = map { $_, $h{$_} } min(keys %h);