use strict;
use warnings;
use utf8;

my $found;
my @array =    ("54321","54312","5999","54352","12345");

  my @original =("12345","54321","12355");

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

        }

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