my @files = `ls Data_files/*/Data.txt`;
chomp @files;

##</code><code>##

foreach my $filename(@files){
    chomp $filename;