# mit Übergabeparameter

my $text = "hallo";
&subroutine($text);
print $text;

sub subroutine{
  my ($text) = @_;
  $text .= "perl-community.de";
  print $text;
}