sub foo ( 
  # originale sind sicher; wir kopieren die Inhalte
  my ( $anton, $berta ) = @_;  
}