my $prefix = '123';
my @digit_files = grep { /^$prefix/ && -f } readdir( CUR );