1 #!/usr/bin/perl
2 use v5.10.1;
3 use utf8;
4 use strict;
5 use warnings;
6 
7 my @castaways = ( qw(Skipper Professor Gilligan Mary-Ann Ginger), 
8 	'Mr. Howell', 'Mrs. Howell' );
9 my @things = qw(coconut banana papaya flower crab);
10 
11 foreach ( 0 .. 100 ) {
12 	my $castaway = $castaways[ rand @castaways ];
13 	my $thing = $things[ rand @things ];
14 	my $number = 1 + int rand 5;
15 	$thing .= 's' if $number > 1;
16 	say "$castaway: $number $thing";
17 	}
18 
19