#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

my $dirphoto = "/home/ww";

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

for (@array) { print "$_ \n";}

print "done\n";