Select Code to Download

#!/usr/bin/perl -l
use strict;
...
my @shuffled_words = shuffle(@words);

print for @shuffled_words[0 .. 9];