Select Code to Download

@$fnames->{filename}

my $res_files = list_dirs($dir,$datanames);

...
       # do something with filename ...
   }
}

my $res_files = list_dirs($dir,$datanames);

...
   my @filenames = map { $_->{'filename'} } @{ $fnames };
   ...
}

use Path::Iterator::Rule;
...
...

   return \@found_filenames;
}