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

sub list_dirs {
   my ( $locations, $fnames ) = @_;
   ...
   foreach my $href ( @{ $fnames } ) {
       my $filename = $href{'filename'};
       # do something with filename ...
   }
}