Re^2: compare text file and print occurrence of key and value

Select or download this

for my $key ( keys %hash ) {
    delete $hash{$key}; 
    $hash{$key} = "$key_x";
}

Select or download this

$VAR1 = {
          '.1.3.5.7.9.1.6227.1.20.1.1.2.33.0.7.7' => 'number: 2',
...
          '.1.3.5.7.9.1.6227.1.20.1.7.1.88.2.3.30.4' => 'data: ',
          '.1.3.5.7.9.1.6227.1.20.1.8.1.88.2.3.30.4' => 'number: 8'
        };

Select or download this

SOME-DATA.6227.1.20.1.1.2.33.0.7.7' = 'number: 2',
SOME-DATA.6227.1.20.1.4.8.88.6.3' = 'number: 2',
...
SOME-DATA.6227.1.20.1.6.9.0' = 'number: 7',
SOME-DATA.6227.1.20.1.7.1.88.2.3.30.4' = 'data: ',
SOME-DATA.6227.1.20.1.8.1.88.2.3.30.4' = 'number: 8'

Select Code to Download