By quick I assume you mean brief.

%h = ( map { ($_, $h{$_}) }  sort {$a<=>$b} keys %h )[0,1];
[download]

Be well.