#!/usr/bin/perl -l
use strict;
use warnings;
use List::Util qw/shuffle/;

my $wordlist = '/usr/share/dict/words';

my $length = 10;
my $numwords = 10;

my @words;

open WORDS, '<', $wordlist or die "Cannot open $wordlist:$!";

while (my $word = <WORDS>) {
    chomp($word);
    push @words, $word if (length($word) == $length);
}

close WORDS;

my @shuffled_words = shuffle(@words);

print for @shuffled_words[0 .. 9];