The thing below (with arbitrary, fabricated arrays) takes approximately 1m15s on my old 600 MHz machine. How does it compare to your running time? If I'm not mistaken, this scans the first and second arrays once, running a count on every valid thing it finds. Anyone with suggestions on how to do better, feel free to comment. 
#!/usr/bin/perl

use strict;
use warnings;

my (@array1, @array2);
my %seen;

# Fabricate some array
use List::Util qw(shuffle);
@array2 = shuffle (0..1000000);
@array1 = @array2[0..950000];


# Scan our first array
foreach my $key (@array1) {
        $seen{$key} = 0;
}

# Search our second array
foreach my $key (@array2) {
        # Check if valid key    Yes, count it   No, warn
        defined($seen{$key}) ?  $seen{$key}++   : warn qq{Key '$key' f
+ound, but not searching for it.\n};
}

# Determine the item count
foreach my $item (keys %seen) {
        my $count = $seen{$item};

        if ($count == 1) {
                # Only once, as intended
        }
        elsif ($count == 0) {
                # Missing, report
                print qq{Item '$item' not found in search array.\n};
        }
        else {
                # Multiple items, report
                print qq{Item '$item' found multiple ($count) times in
+ search array.\n};
        }
}

[download]

In reply to Re: Searching first array in second array. by rkrieger
in thread Searching first array in second array. by paragkalra

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.