for my $key ( keys %hash ) {
delete $hash{$key};
$hash{$key} = "$key_x";
}
####
$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.4.8.88.6.3' => 'number: 2',
'.1.3.5.7.9.1.6227.1.20.1.5.3.5.2' => 'number: 3',
'.1.3.5.7.9.1.6227.1.20.1.6.2.88.2.3.30.4' => 'number: 3',
'.1.3.5.7.9.1.6227.1.20.1.1.7.88.5.3' => 'number: 3',
'.1.3.5.7.9.1.6227.1.20.1.1.6.22.2.3.30' => 'data: ',
'.1.3.5.7.9.1.6227.1.20.1.2.9.88.2.3.30.4' => 'number: 3',
'.1.3.5.7.9.1.6227.1.20.1.5.8.88.2.3.30.4' => '',
'.1.3.5.7.9.1.6227.1.20.1.6.4.88.2.3.30.4' => 'number: 1',
'.1.3.5.7.9.1.6227.1.20.1.7.3.88.2.3.30.4' => 'number: 2',
'.1.3.5.7.9.1.6227.1.20.1.8.2.88.2.3.30.4' => 'number: 3',
'.1.3.5.7.9.1.6227.1.20.1.9.1.88.2.3.30.4' => 'number: 4',
'.1.3.5.7.9.1.6227.1.20.1.9.2.88.2.3.30.4' => 'number: 5',
'.1.3.5.7.9.1.6227.1.20.1.3.3.88.2.3.30' => 'number: 6',
'.1.3.5.7.9.1.6227.1.20.1.6.9.0' => 'number: 7',
'.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'
};
####
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.5.3.5.2' = 'number: 3',
SOME-DATA.6227.1.20.1.6.2.88.2.3.30.4' = 'number: 3',
SOME-DATA.6227.1.20.1.1.7.88.5.3' = 'number: 3',
SOME-DATA.6227.1.20.1.1.6.22.2.3.30' = 'data: ',
SOME-DATA.6227.1.20.1.2.9.88.2.3.30.4' = 'number: 3',
SOME-DATA.6227.1.20.1.5.8.88.2.3.30.4' = '',
SOME-DATA.6227.1.20.1.6.4.88.2.3.30.4' = 'number: 1',
SOME-DATA.6227.1.20.1.7.3.88.2.3.30.4' = 'number: 2',
SOME-DATA.6227.1.20.1.8.2.88.2.3.30.4' = 'number: 3',
SOME-DATA.6227.1.20.1.9.1.88.2.3.30.4' = 'number: 4',
SOME-DATA.6227.1.20.1.9.2.88.2.3.30.4' = 'number: 5',
SOME-DATA.6227.1.20.1.3.3.88.2.3.30' = 'number: 6',
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'