use File::Find;
my @dir = 'Y:/mis/';  
my @path;
find sub { push @path, $File::Find::name if -f }, @dirs; 

return @path;