sub nurKleinbuchstaben {
    my $zeile = shift;
    ...
    return $zeile;
}