use File::Slurp 'read_file';
use List::MoreUtils 'pairwise';

print
  &pairwise( sub { length $a ? "$a = $b\n" : () },
    map { [read_file($_,chomp=>1)] } 'file1', 'file2' );