opendir D, "/tmp" or die "could not open dir: $!\n";
my @filename = grep(/index/i, readdir D);
print @filename;