sub test{
  $_[0] = 'New Value';
}

my $Var = 'Hi there';
print "$Var\n";
test ($Var);
print "$Var\n";