#!/usr/bin/perl
use strict;
use warnings;

sub modify (\$) {
    my $string_ref = $_[0];
    $$string_ref =~ s/a/x/g;
}

my $string = 'abc';

print "before `$string'\n"; # abc
modify $string;
print "after  `$string'\n"; # xbc