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

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