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

##</code><code>##

%h = do {
    my @temp = map { $_ => $h{$_} } sort { $a <=> $b } keys %h;
    @temp[0,1];
};

##</code><code>##

%h = do {
    my @temp =
        map {
            $_ => $h{$_}
        } sort {
            $a <=> $b
        } keys %h;
    @temp[0,1]
};