my @array;
find(sub { push @array, $File::Find::name }, $dirphoto);