sub alter_var {
    my $aliasvar = $_[0];    # Nice to have C like proto types but...
    ${$aliasvar} =~ s/a/b/g;
#   ${$_[0]} =~ s/a/b/g;   # This uses $_[0] and works
}