Even you can use readdir() to each filename in folder. This code reads your folder and match for the word 160526GRAD-T with min 1 and max 3 digits after 'T'

#!/usr/bin/perl -w

opendir(DIR, "/your folder path");
@files = grep(/160526GRAD-T\d{1,3}$/,readdir(DIR));                   
+                                                       
closedir(DIR);

foreach $file (@files) {
   print "$file\n";
   }
[download]