sub schreibe_an {
my $dummy = shift;
return \$dummy;
}