sub alter_var {
   my $var_in_sub = $_[0];
   $var_in_sub =~ s/a/b/g;
   $_[0] = $var_in_sub;
}

# or

sub alter_var {
   $_[0] =~ s/a/b/g;
}