foreach $string(@array) {
    
    my $found = 0 ;
    foreach $string2(@original) {
	if ($string eq $string2) {
	    $found = 1;
	}
    }

    if ($found == 0) {
	print "$string not found\n";
    }
    else
    {
	
	print "$string found\n";
	
    }
    
}