sub my_function {
  foreach ( @_ ) {
    print "Zeile: $_\n";
  }
}