Select Code to Download

Select or download this

NewData(file 1)

...
Brooks
11111 22222 33333 44444 
33333 44444 55555 66666

Select or download this

'Adidas' => {
                        'y1' => [
...


 };

Select or download this

$VAR1 = {
          'Adidas' => {
...
                                ]
                      }
        };

Select or download this

 foreach my $newq (keys %hash1)
    {
...
         print "$newq\t$newx1\t$oldx1\n";
         }
             }

Select or download this

         New     Old
Adidas  99999   99999
Puma    77777   77777
Brooks  11111   11111
Brooks  33333   33333

Select or download this

        New     Old
Adidas  99999   11111
...
Adidas  22222   99999
Brooks  11111   33333
Brooks  33333   11111

Select or download this

                           New                           Old
                     x1   y1     x2    y2        x1    y1   x2     y2
...
Brooks             11111 22222 33333 44444     11111 22222 33333 44444
Brooks             33333 44444 55555 66666     33333 44444 55555 66666

Select or download this

                           New                           Old
                     x1   y1     x2    y2        x1    y1   x2     y2
Adidas             22222 11111 33333 44444     11111 11111 33333 44444