Select Code to Download

my $count = 0;
for ( sort { $a cmp $b } keys %hash ) {
  print "$_ => $hash{$_}\n"
    if $count++ < 10;
}

my $count = 0;
for ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
  print "$_ => $hash{$_}\n"
    if $count++ < 10;
}