Getting duplicate file contents in perl

[noviceuser]

i am trying to read contents of all the file present in a folder and store/append all the file contents in a single text file, but i can see data getting repeated of same file in the output text file such as

suppose there are 3 files (1.txt, 2.txt, 3.txt) in the folder then the output file contains data from these files as below, i.e data of 1.txt gets repeated 3 times and data of 2.txt twice

<code> 1.txt 1.txt 2.txt 1.txt 2.txt 3.txt

[BillKSmith]

Your output file is already in the directory when you glob so your output file is treated as an input. Move the glob before the open.

    my @allFiles = glob("$severityDir/*.txt");
    open( my $fh, '>>', $severityFile )
        or die "Could not open file '$severityFile' $!";