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