# do stuff here
    my %test_var;
    $test_var{$string} = $string;
    testing_string();
    $string = $test_var{$string};

    sub testing_string_2 {
        # do some stuff here
        $test_var{$string} =~ s/a/b/sg;  
    }