Select Code to Download

#!/usr/bin/perl

...
    }
  return %hash;
  }

                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