use File::Find;

my @files;

sub eachFile {
  if (-e $_) { push @files, $File::Find::name; }
}

find (\&eachFile, "/some/directory/");