Matze's Perlshit #2

#!/bin/perl
use strict;

my @array = ("inhalt", "inhalt2", "inhalt3");
my @array2 = ("inhalt", "inhalt2");
my $found = 0;
#achtung O(n^2)!! ;-)
foreach my $bla1 (@array) {
	foreach my $bla2 (@array2) {
		if ($bla1 eq $bla2) {
			#gefunden also brich aus schleife aus
			$found = 1;
			break;
		}
	}
	if (!$found) {
		#do whatever you wanna do
		$found = 0;
	}
}