0001Hadrian 
0002Claudius 
0003Julian 
0004Augustus 
0005Severus 
0006Constantine 
0007Valentinian

##</code><code>##

0001Legio IX 
0001Legio VI 
0001Ursa Minor 
0002Veraculum 
0002Thrace 
0002Legio III 
0003Persia 
0003Londinium 
0004Legio II 
0005Caledonia 
0005York 
0006Christianity 
0006Constantinople 
0006Legio II 
0007Julian 
0007Legio VII

##</code><code>##

                  <Master>(in the middle of the page)
<child>(line up to the left
<child>
<child>
<child>
<child>
<child>
<child>
<child>
<child>
<child> &#56256;&#56517; up to 15
<child> children per page
                    Page<page no>(middle of page)
a example could be:
                    Hadrian
Legio IX
Legio VI
Ursa Minor
Page 1
13
                   Page 1

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my $data1 = "master.txt";
my ( $number, %accounts );
open (F1, $data1) or die "\"$data1\" not existed or can't be opened!\n";

my $data2 = "child.txt";
my ( $child_number, %children );
open (F2, $data2) or die "\"$data2\" not existed or can't be opened!\n";
my ($master,%result);
my $result;
while ( <F1> ) {
        chomp;
        ($number, my @fields ) = split /(\d\d\d\d)/, $_, -1;
        @{ $accounts{ $number } }{ qw/ number name / } = @fields;
 }    
while ( <F2> ) {
    chomp;
        ($child_number, my @fields ) = split /(\d\d\d\d)/, $_, -1;
      @{ $children{ $child_number } }{ qw/ child_number info / } = @fields;
  #print Dumper  $children{ $child_number } ;
if ($accounts{ $number }{'number'} == $children{ $child_number }{'child_number'}){
     	print $accounts{ $number }{'name'}, "\n";
     	foreach $child_number (%children){
     		print $children{ $child_number }{'info'}, "\n";
    }
    }
  
}