«

In article <> ,
Cal Dershowitz <> wrote:
>for my $name (@files) {
> print "name is $name\n";
> my ($ext) = $name =~ /([^.]*)$/;
> for my $image (@list) {
> print "image is $image\n";
> my ($ext2) = $image =~ /([^.]*)$/;
> my @array = grep ( /$ext2/, @list );
> }
>
> print "sub_list is @array\n";
>}

@array only exists within the body of the for loop, because that's where it
was my'ed.

--
Alan Curry