my $low_key = (keys %h)[0];
for my $k ( keys %h ) {
  $low_key = $k if ($k < $low_key );
}
my $val_l_k = $h{$low_key};
%h=();
$h{$low_key}=$val_l_k;

##</code><code>##

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

##</code><code>##

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