1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu use strict;
 3 1ddd2d4e 2023-09-10 jrmu use warnings;
 4 1ddd2d4e 2023-09-10 jrmu 
 5 1ddd2d4e 2023-09-10 jrmu my @skipper   = qw(blue_shirt hat jacket preserver sunscreen);
 6 1ddd2d4e 2023-09-10 jrmu my @professor = qw(sunscreen water_bottle slide_rule batteries radio);
 7 1ddd2d4e 2023-09-10 jrmu my @gilligan  = qw(red_shirt hat lucky_socks water_bottle);
 8 1ddd2d4e 2023-09-10 jrmu 
 9 1ddd2d4e 2023-09-10 jrmu my %all = (
10 1ddd2d4e 2023-09-10 jrmu 	Gilligan  => \@gilligan, 
11 1ddd2d4e 2023-09-10 jrmu 	Skipper   => \@skipper, 
12 1ddd2d4e 2023-09-10 jrmu 	Professor => \@professor,
13 1ddd2d4e 2023-09-10 jrmu );
14 1ddd2d4e 2023-09-10 jrmu 
15 1ddd2d4e 2023-09-10 jrmu check_items_for_all(\%all);
16 1ddd2d4e 2023-09-10 jrmu 
17 1ddd2d4e 2023-09-10 jrmu sub check_items_for_all {
18 1ddd2d4e 2023-09-10 jrmu 	die "You need to fill in check_items_for_all";
19 1ddd2d4e 2023-09-10 jrmu }