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