# Random silly sentence generator.

use warnings;
use strict;

my @nouns = qw(elephant dog man carrot ocean);
my @verbs = qw(is seems appears wants_to_be);
my @adjs  = qw(hairy smelly purple grimy wobbly);
while (1) {
    my $noun = $nouns [ rand @nouns ];
    my $verb = $verbs [ rand @verbs ]; $verb =~ s/_/ /g;
    my $adj  = $adjs  [ rand @adjs  ];
    print "The $noun $verb $adj.\n...";
    <STDIN>;    # Hit "Enter" on your keyboard for a new sentence.
}
# Ctrl-C to exit.