opendir my $dir, $path or die "Can not open $path for reading: $!\n";
@files1 = grep {/\.ex1$/i} readdir $dir;
@files2 = grep {/\.ex2$/i} readdir $dir;
closedir $dir;