Adding files matching pattern to an array

I would like to create an array of files that match a pattern

my $i;
my @FILE = qw( thisfile.txt?[0-9);

for for $i (@FILE)
open FH $i or die $!;
(...some code)

where the files in the working dir could be a file named 'thisfile.txt'
which may be or may not be foloowed by a number.

.