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

sub list_dirs {
   my ( $locations, $fnames ) = @_;

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