t.pl

#!/usr/bin/env perl
use strict;
use warnings;

my %hash;

# Fill %hash with 20 random values 0 - 99
for (1 .. 20) {
    my $rand = int(rand(100));
    $hash{$rand} = $rand;
}

my @sorted = sort { $hash{$a} <=> $hash{$b} } keys %hash;

print "\nv1\n";
foreach my $key (@sorted[0..9]) {
    print $hash{$key} . "\n";
}

print "\nv2\n";
# Note, splice damages @sorted array
foreach my $val (splice(@sorted, 0, 10)) {
    print $val . "\n";
}