use strict;
use warnings;

my $zahl_1	= 10;
my $zahl_2	= 30;

my $ergebnis 	= summe_von ($zahl_1, $zahl_2);

print $ergebnis;	# Ausgabe "40"

<>;


## die subroutine:

sub summe_von{
	my ($zahl_1, $zahl_2)	= @_;	# die parameter sind automatisch in @_ drin

	# also ist jetzt $zahl_1 gleich 10 
	# und $zahl_2 ist gleich 30

	return $zahl_1 + $zahl_2;	# rückgabe der summe (40)
}