while (<$a_fh>) {
    print unless exists $second_file{unpack 'A*', $_};
}

##</code><code>##

while (<$file_a>) {
    unless (exists $h{unpack 'A*', $_}) {
        print;
    } else {
        last;
    }
}