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