use List::Util qw(shuffle);
use Data::Random::WordList;

my $correct = "Correct answer";
my $wl = new Data::Random::WordList( wordlist => '/usr/dict/words' );
my @rand_words = $wl->get_words(3);
my @answers = shuffle(@rand_words, $correct);