in reply to Use 'ls' to read files in perl????

No need for ls, use glob:
my @files = glob('/Data_Files/*/Data.txt');

[download]

In Section Seekers of Perl Wisdom