Select Code to Download

for (my($k,$v)=each %{$data2->[0]}){
  $_->{$k} = $v for @$data1;
}

my ($k,$v) = %{$data2->[0]};

$_->{$k} = $v for @$data1;

c:\@Work\Perl\monks>perl
use strict;
...
            'NUMBER' => '00023'
          }
        ];