my @data = map { [ read_file( $_, chomp => 1 ) ] } 'file1', 'file2';
print map {
  length $data[0][$_] ? "$data[0][$_] = $data[1][$_]\n" : ''
} 0 .. $#{$data[0]};