@files = grep { /\.c$/ } readdir ($DIR);