@Array1 = qw{XXX FFF ZZZ AAA BBB QQQ LLL JKK III CCC DDD DCD};
@Array2 = ("XXX BBB AAA CCC DDD EEE", "FFF NNN JKK III LLL QQQ");


foreach(@Array1)
{
        $string1 = $_;
        foreach(@Array2)
        {
                my $string2 = $_;
                my $result = index($string2, $string1);
                print $string1, ($result >= 0 ? " IS    " : " IS NOT",
+ " found in "), $string2, "\n";
        }
}
[download]