# ohne Übergabeparameter
my $text = "hallo";
&subroutine();
print $text;

sub subroutine{
  $text .= "perl-community.de";
  print $text;
}