opendir my $dir, $path or die "Can not open $path for reading: $!\n";
@files  = grep {/\.ex[12]$/i} readdir $dir;
@files1 = grep {/1$/i} @files;
@files2 = grep {/2$/i} @files;
closedir $dir;