Select Code to Download

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

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

my @values = @hash{ @sorted_keys[ 0 .. 4 ] };