#opening dir n' grabbing files
opendir(DIR, ".");
my @files = grep(/^.+?index\.ccr$/,readdir(DIR));
closedir(DIR);

#opening file for writing and outputting to indexlist.ccr
open(FILE, ">indexlist.ccr")
foreach(@files) {
  print FILE $_ . "\n";
}
close(FILE);