#!/usr/bin/perl
    use strict;
    use warnings;
    use Data::Dumper;
    my $input1=$ARGV[0];
    my $input2=$ARGV[1];
    my %hash1;
    my %hash2;
    my $name1;
    my $name2;
    my $x1;
    my $x2;
    my $y2;
    my $y1;
    
    open my $fh1,'<', $input1 or die "Cannot open file : $!\n";
    while (<$fh1>)
    {
    chomp;
    if(/^name\s+(\S+)/)
    {
     $name1 = $1;
    
    }
    if(/^num\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/)
    {
    
     $x1 = $1;
     $y1 = $2;
     $x2 = $3;
     $y2 = $4;
    }
    $hash1{$name1}=[$x1,$y1,$x2,$y2];
    
    }
    close $fh1;
    print Dumper (\%hash1);
    
    open my $fh2,'<', $input2 or die "Cannot open file : $!\n";
    while (<$fh2>)
    {
    chomp;
    if(/^name\s+(\S+)/)
    {
     $name2 = $1;
    
    }
    if(/^num\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/)
    {
    
     $x1 = $1;
     $y1 = $2;
     $x2 = $3;
     $y2 = $4;
    
    }
    
    $hash2{$name2}=[$x1,$y1,$x2,$y2];
    
    }
    close $fh2;
    print Dumper (\%hash2);