my %st = map { $_ => undef } @list;
my $matches = 0;
foreach my $item (@items) {
  $matches++ if exists $st{$item};
}
print "All match!" if $matches == @items;