for ($i=1; $i<=$number; $i++) {
               open (lookup, "<file" . "$i");
           
while (<lookup>) {                                    ($ref_name, $ref_id) = (split /\t/, $_)[3,4]    $hash_name{$ref_id} = $ref_name; 
                 }
                                       }