#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);
[download]

If you're in a *ixish world, why not just ls *index.ccr > indexlist.ccr?

In the Windows world, I think substituting dir for ls, with some appropriate options, may work.

If you're trying to do this from within a Perl program, I'd try something like

#perl -w

use strict;
use diagnostics;

use File::Glob qw(:globally :nocase);

my $log = 'indexlist.ccr';

open(LOG, $log) or die "Could not open $log because $!\n";

my @list = <*index.ccr>;

print LOG join("\n", @list) . "\n";

close(LOG);
[download]

If you're running Windows, you'd probably want to use File::DosGlob;, with appropriate adjustments, instead.

In the Windows shell, this would achieve the desired:

dir *index.ccr > indexlist.ccr

Or you could use pipes, and filter dir through find and then output to the file, like so:

dir | find "index.ccr" > indexlist.ccr

Chaining commands using pipes allows the Windows shell, even though severy crippled when compared with *nix shells, to perform moderatelly complex administrative tasks.