Select Code to Download

use strict;
use warnings;
...
    close $lookupFH
       or die qq{close: $file: $!\n};
}

my $queryFile = q{file2};
my $queryRefID = q{XX};
my $resRefName = $fileInfo{$queryFile}->{$queryRefID};