#!/bin/perl
use strict;

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;
	}
}