open my $fh, '<', $qfn  || die;
   means
open my $fh, '<', ( $qfn  || die );