my $string = "Hallo";
TuWas($string);
print $string,"\n";

sub TuWas{
    my ($string2) = @_;
    $string2 = "Perl-Community.de";
}