#!/usr/bin/perl

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

sub TuWas{
    $_[0] = "Perl-Community.de";
}