my $substit = quotemeta (".1.3.5.7.9.1")
for my $key (keys %hash) {
     my $value = $hash{$key);
     $key =~ s/^$substit/SOME_DATA/;
     print "$key = $value\n"
}