# mit Übergabeparameter als funktion

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

sub subroutine
{  return "$_[0] perl-community.de";  }