其实就是你的思路，读出来再分析而已。

简单如下：

#! /usr/bin/perl
use strict;
my $hash = {};
readfile("1.txt");
readfile("2.txt");
open(fh,">c.txt");
for (keys(%$hash)) {
   print fh "$_ \n"  ;
   for (@{$hash->{$_}}) {print fh "$_ \n";}
}
close fh;


sub readfile
{
  my $file = shift;
  my $key;
  open(fh,"$file");
  while (<fh>)
  {
     if (/(^\##\d)/) {$key=$1; next;}
     push @{$hash->{$key}}, $_;
   }
 close fh;
}