Select Code to Download

$ls *.xml
123_20070303_REFNUM.xml
123_20071225_REFNUM.xml
123_20080101_REFNUM.xml
923_20070227_REFNUM.xml

#!/usr/bin/perl 
use strict;
...
closedir DIR;

print Dumper \@xml_files;

Output:
$VAR1 = [
          '923_20070227_REFNUM.xml',
...
          '123_20071225_REFNUM.xml',
          '123_20080101_REFNUM.xml'
        ];