Maybe try:
open(MYFILE, $match) || die "Can't open file: $!";
my @filelist = ;
close(MYFILE);
chomp @filelist;
foreach (@filelist) {
find \&wanted($_), ".";
}
sub wanted {
my $File = shift;
print "Match found at : $File::Find::name\n" if $File;
}
For the $b array just:
while (defined($b=
> -Original Message-
> From: Ben Crane [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, November 13, 2001 10:30 AM
> To: [EMAIL PROTECTED]
> Subject: Array problems!
>
>
> I create a dummy file with 4 filenames in it...I have
> read these 4 names into @filelist...and when I pass
> the array t