Another alternative:

#!/usr/bin/perl -w
use strict;
use IO::All;
my @files;
for ( io('.')->All ) {
    push @files, $_ if $_ =~/.*\.xml$/i;
}
[download]

I spent 22 seconds to read 33721 files/directories on a PIV 1.7 with 256Mb RAM