@array =
    (
    "54321" ,
    "54312" ,
    "5999" ,
    "54352" ,
    "12345"
    );
    
    @original =
    (
    "12345" ,
    "54321" ,
    "12355"
    );
    
    foreach $string(@array) {
    foreach $string2(@original) {
    if ($string eq $string2) {
    
    $found = 1;
    }
    else
    {
    $found = 0;
    }
    if ($found == 0) {
    print "$string not found\n";
    }
    else
    {
    
    print "$string found\n";

    }
    
    }
    
    }