open(my $fh, '<', $qfn)