for my $key ( @sorted_keys[ 0 .. 4 ] ) {
   print "$hash{$key}\n";
}