Help for this page
use List::Util; my $min_key = min(keys %h); %h = ($min_key, $h{$min_key});
%h = map { $_, $h{$_} } min(keys %h);