Select Code to Download

Select or download this

@array = (
    ['C:\Source1\\', 'File1.txt', 'ReferenceIDForProcessing'],
    ['D:\Source2\sub\\', 'File2.txt', 'ReferenceIDForProcessing'],
    ['E:\Source3\sub2\\', 'File3.xml', 'ReferenceIDForProcessing'],
    ['C:\Source4\\', 'File4.pgp', 'ReferenceIDForProcessing'],
);

Select or download this

for my $record (@array) {
    my $path = $record->[0];
...
    my $id   = $record->[2];
    print "$path $name $id\n";
}