my ($match)=$file=~/(\d{4})\d{4}\.txt/;

##</code><code>##

my @a = map {/(\d{4})\d{4}\.txt/} @filenamearray;