use strict;
use warnings;

my $allDevices = 'All_Devices.txt';
open (my $device_h, '>>', $allDevices) or die "Could not create $allDevices $!\n";

while (my $file = <$_allConfDir/*>) {
  print $device_h $file;
}
close $device_h;

##</code><code>##

next uness ($file =~ m/\.txt$/);

##</code><code>##

<$_allConfDir/*txt>