sub alter_var(???) {
      my $var_in_sub = ???;

      # alter $var_in_sub, eg
      $var_in_sub =~ s/a/b/g;
    }

    my $var_elsewhere = 'aaa';
    alter_var($var_elsewhere);
    print $var_elsewhere; # should print 'bbb'