sub passby
{
print length($_[0]), "\n";
}

sub copy
{
my $ausgabe=$_[0];
print length($ausgabe), "\n";
}