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

my @words = ("copy ","study ","meditate ","write from scratch ");
my @words2 = ("and ","or ");
my @words3 = ("scalars ","arrays ","hashes ","regexes ","subroutines ","cpan ","perlmonk archives ","cgi ");

print $words[rand @words], $words2[rand @words2], $words[rand @words], $words3[rand @words3], "\n";