Select Code to Download

    name    foo
    num     111 222 333 444
    name    jack
    num     999 111 222 333
    num     333 444 555 777

 

...
    name    foo
    num     666 222 333 444

    #!/usr/bin/perl
    use strict;
...
    close $fh2;
    print Dumper (\%hash2);

    $VAR1 = {
              'jack' => [
...
                         '444'
                       ]
            };

    $VAR1 = {
              'jack' => [ 
...
                         '444'
                       ]
            };

print "\t\tFIle1\t\t\t\t\tFile2\n";
print "Name\tX1\tY1\tX2\tY2\t\t\tX1\tY1\tX2\tY2\n";
...
       }
}

                 File1                        File2
Name     X1      Y1      X2      Y2     X1     Y1     X2     Y2

                  File1                        File2
    Name     x1   y1   x2   y2            x1   y1   x2   y2
    jack     999  111  222  333           999  111  222  333
             333  444  555  777           333  444  555  777