opendir(DIR,"/some/dir") || die "can't open: $!";
@files = grep { /\.c$/ } readdir(DIR);
closedir(DIR);

##</code><code>##

@files = `/bin/bash -c "ls /some/dir/*.c"`;