@file_handles = map  { some_code_to_open_files } @huge_filelist;
@wanted_files = grep { some_file_access } @file_handles;
@wanted_data  = grep { some_more_file_access } @wanted_files;
@return_codes = map  { close $_ } @file_handles;