my @ext = ("\.dtd", "\.xml");   


foreach $a (@ext) {
print $a, "\n";
my $i =0;

while ($i <= $zip->numberOfMembers) {

my $xmlfile=$filelist[$i] if $filelist[$i] =~ /$a/;

print $xmlfile, "\n";
print $i, "\n";
$i++;
}
}

----------------

Ausgabe:

laga@prometheus:~/dev/perl$ perl downloaddata
.dtd
Use of uninitialized value in print at downloaddata line 44.

0
qy.dtd
1
Use of uninitialized value in print at downloaddata line 44.

2
Use of uninitialized value in print at downloaddata line 44.

3
Use of uninitialized value in print at downloaddata line 44.

4
Use of uninitialized value in print at downloaddata line 44.

5
Use of uninitialized value in print at downloaddata line 44.

<--snip-->
.xml
20070723_20070706_de_qy.xml
0
Use of uninitialized value in print at downloaddata line 44.

1
Use of uninitialized value in print at downloaddata line 44.

2
Use of uninitialized value in print at downloaddata line 44.

3
Use of uninitialized value in print at downloaddata line 44.

4
Use of uninitialized value in print at downloaddata line 44.

5
Use of uninitialized value in print at downloaddata line 44.

6
Use of uninitialized value in print at downloaddata line 44.