searching arrays - more optimal code

[Noah]

Hi List,

Is there a more optimal way to present this data structure without 
becoming completely convoluted?

--- snip ---


    for my $key (sort keys %usernames) {
        my $found = 0;
        for my $knownusername (@knownusernames) {
            if ($knownusername eq $key) {
                $found = 1;
            }
        }
        print FIXTURE "*** Username $key is a configured and not 
familiar\n" if ($found eq 1);
    }

==== snip ----

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/