@second_file{map { unpack 'A*', $_ } <$b_fh>} = ();
seek( $b_fh, 0, 0 ); ## Reset $b_fh back to the beginning