$dir = 'datas';

opendir DIR, $dir or die "Can't open $dir: $!";
my @files = grep (-f "$dir/$_",readdir DIR); 
closedir DIR;