gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use IPC::Shareable;

my %hash;

my $t = tie %hash, 'IPC::Shareable';

#$t->shlock;

print "Filling\n";
for (1..6000) {
        $hash{$_} = 1;
}

print "Done\n";

my @fast = (sort {$hash{$a} <=> $hash{$b}} keys %hash)[0..9];
print join(',', @fast);