my @skipper = qw(blue_shirt hat jacket preserver sunscreen);
check_required_items('The Skipper', \@skipper);
sub check_required_items {
my @required = qw(preserver sunscreen water_bottle
jacket);
for my $item (@required) {
unless (grep $item eq $_, @{$_[1]}) { #
not found in list?
print "$_[0] is missing $item.\n";
}
}
}