use File::Find::Rule;

my @EnvListFile = find( file => name => qr/EnvList\.\d{10}/, in => "$HOMEDIR/data" );