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