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