I should read posts more carefuly before answering, your use of File::Find was totaly unnoticed by me. You can't pass return values through the call of find, use a global variable instead, as you originaly did. Here a slightly modified version, that searches use lines in .pl files.

use File::Find;

my($ct, @data) = (0,());

sub fetcher
{
    if( $_ =~ /\.pl?$/) {
        my $name = $File::Find::name;
        open ( F, $name ) or die "$!: $name\n";
        my @lines = <F>;
        close(F);
        my @matches = grep(/^use/, @lines);
        push(@data, @matches);
        $ct += scalar(@matches);
    }
}
find( {wanted => \&fetcher, no_chdir => 1, }, "."  );

print "\n\nTotal Count = $ct\n\n";
print @data;
__END__


Total Count = 8


use strict;
use WWW::Search::Tv::German::Tvtoday 1.02;
use File::Find;
use File::Basename;
use HTML::TokeParser;
use LWP::Simple;
use LWP::Simple;
use Net::POP3;
[download]

Notice that I slurp the file and use grep to find the matches, I think it looks more like perl this way.

And by the way: I would realy like to know, for what purpose you wrote this code, as it seems to me, if you had posted that, someone could come up with a more proper solution, just a humble guess...

Oh, and as a further note: proper, read: consistent, indenting of code is most welcome here ;-)

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.