my $string = "This is a string";

printWthStrRef($string);    # passing string by alias


sub printWthStrRef {
    my $ref = \( $_[0] );

    print $$ref;       # prints the string
    print $_[0];       # prints the string
    $_[0] = "new";     # overwrite original $string

}