#!/bin/perl -w
use strict;
use warnings;

# input
my %hash=();
my @filename = ('File1.txt','File2.txt');
for my $n (0..1){
  parse($n,$filename[$n]);
};

output('output.txt');

# parse
sub parse {
  my ($n,$filename) = @_;
  open my $fh,'<',$filename or die "$!";
  my $key;
  while (<$fh>){
    if (/^NAME/){
      $key = $_;
      $hash{$key}[$n] = '';
    } else {
      $hash{$key}[$n] .= $_ if $key;
    }
  }
  close $fh;
}

# merge
sub output {
  my ($filename) = @_;
  open my $fh,'>',$filename or die "$!";
  for my $key (sort keys %hash){
    if (defined $hash{$key}[0]){
      print $fh $key.$hash{$key}[0];
    } else {
      print $fh $key.$hash{$key}[1];    
    }
  }
  close $fh;
}