my $dirname = "/home/oracle/test/Oracle/oradata";

opendir my $DIR, $dirname or die "Error in opening dir '$dirname' because: $!";

my $count = grep -f "$dirname/$_", readdir $DIR;

closedir $DIR;