sub read_dir_list{
    opendir(DIR, '.');
    my @all_files = readdir DIR;
    closedir DIR;
    my @files = grep /^ABC.*/ @all_files;
    return @files;
}