Select Code to Download

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

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