#!/usr/bin/perl

print "Bitte geben sie die 1. Zahl ein:\n";						#$z1-z8 = Zahlen
$z1 = <STDIN>;		
chop ($z1);
print "Bitte geben sie den 1. Operator (+,-,/,*) ein:\n";
$o1 = <STDIN>;
chop ($o1);
print "Bitte geben die die 2. Zahl ein:\n";
$z2 = <STDIN>;
chop ($z2);
print "Moechten sie eine weitere Zahl hinzufuegen? [y/n]\n";
$wz1 = <STDIN>;
chop ($wz1);

sub addition {
	($_[0] + $_[1]);
}
sub subtraktion {
	($_[0] - $_[1]);
}
sub multi {
	($_[0] * $_[1]);
}
sub division {
	($_[0] / $_[1]);
}

if ($o1 eq "+"){
	$erg1 = &addition($z1, $z2);
}
if ($o1 eq "-"){
	$erg1 = &subtraktion($z1, $z2);
}
if ($o1 eq "*"){
	$erg1 = &multi($z1, $z2);
}
if ($o1 eq "/"){
	$erg1 = &division($z1, $z2);
}


if ($wz1 eq "y"){
	print "Bitte geben sie den 2. Operator (+,-,/,*) ein:\n";				#wz = weitere zahlen
	$o2 = <STDIN>;
	chop ($o2);
	print "Bitte geben sie die 3. Zahl ein:\n";
	$z3 = <STDIN>;
	chop ($z3);
	print "Moechten sie eine weitere Zahl hinzufuegen? [y/n]\n";
	$wz2 = <STDIN>;
	chop ($wz2);

if ($o2 eq "+"){
	$erg2 = &addition($erg1, $z3);
}
if ($o2 eq "-"){
	$erg2 = &subtraktion($erg1, $z3);
}
if ($o2 eq "*"){
	$erg2 = &multi($erg1, $z3);
}
if ($o2 eq "/"){
	$erg2 = &division($erg1, $z3);
}
}
if ($wz1 eq "n"){
	print "Ihr Ergebnis ist: $erg1\n";
}

if ($wz2 eq "y"){
	print "Bitte geben sie die den 3.Operator (+,-,/,*) ein:\n";
	$o3 = <STDIN>;
	chop ($o3);
	print "Bitte geben sie die 4. Zahl ein:\n";
	$z4 = <STDIN>;
	chop ($z4);
	print "Moechten sie eine weitere Zahl hinzufuegen ? [y/n]\n";
	$wz3 = <STDIN>;
	chop ($wz3);

if ($o3 eq "+"){
	$erg3 = &addition($erg2, $z4);
}
if ($o3 eq "-"){
	$erg3 = &subtraktion($erg2, $z4);
}
if ($o3 eq "*"){
	$erg3 = &multi($erg2, $z4);
}
if ($o3 eq "/"){
	$erg3 = &division($erg2, $z4);
}
}
if ($wz2 eq "n"){
	print "Ihr Ergebnis ist: $erg2\n";
}

if ($wz3 eq "y"){
	print "Bitte geben sie die den 4.Operator (+,-,/,*) ein:\n";
	$o4 = <STDIN>;
	chop ($o4);
	print "Bitte geben sie die 5. Zahl ein:\n";
	$z5 = <STDIN>;
	chop ($z5);
	print "Moechten sie eine weitere Zahl hinzufuegen ? [y/n]\n";
	$wz4 = <STDIN>;
	chop ($wz4);
	
if ($o4 eq "+"){
	$erg4 = &addition($erg3, $z5);
}
if ($o4 eq "-"){
	$erg4 = &subtraktion($erg3, $z5);
}
if ($o4 eq "*"){
	$erg4 = &multi($erg3, $z5);
}
if ($o4 eq "/"){
	$erg4 = &division($erg3, $z5);
}
}
if ($wz3 eq "n"){
	print "Ihr Ergebnis ist: $erg3\n";
}

if ($wz4 eq "y"){
	print "Bitte geben sie die den 5.Operator (+,-,/,*) ein:\n";
	$o5 = <STDIN>;
	chop ($o5);
	print "Bitte geben sie die 6. Zahl ein:\n";
	$z6 = <STDIN>;
	chop ($z6);
	print "Moechten sie eine weitere Zahl hinzufuegen ? [y/n]\n";
	$wz5 = <STDIN>;
	chop ($wz5);

if ($o5 eq "+"){
	$erg5 = &addition($erg4, $z6);
}
if ($o5 eq "-"){
	$erg5 = &subtraktion($erg4, $z6);
}
if ($o5 eq "*"){
	$erg5 = &multi($erg4, $z6);
}
if ($o5 eq "/"){
	$erg5 = &division($erg4, $z6);
}
}
if ($wz4 eq "n"){
	print "Ihr Ergebnis ist: $erg4\n";
}

if ($wz5 eq "y"){
	print "Bitte geben sie die den 6.Operator (+,-,/,*) ein:\n";
	$o6 = <STDIN>;
	chop ($o6);
	print "Bitte geben sie die 7. Zahl ein:\n";
	$z7 = <STDIN>;
	chop ($z7);
	print "Moechten sie eine weitere Zahl hinzufuegen ? [y/n]\n";
	$wz6 = <STDIN>;
	chop ($wz6);

if ($o6 eq "+"){
	$erg6 = &addition($erg5, $z7);
}
if ($o6 eq "-"){
	$erg6 = &subtraktion($erg5, $z7);
}
if ($o6 eq "*"){
	$erg6 = &multi($erg5, $z7);
}
if ($o6 eq "/"){
	$erg6 = &division($erg5, $z7);
}
}
if ($wz5 eq "n"){
	print "Ihr Ergebnis ist: $erg5\n";
}

if ($wz6 eq "y"){
	print "Bitte geben sie die den 7.Operator (+,-,/,*) ein:\n";
	$o7 = <STDIN>;
	chop ($o7);
	print "Bitte geben sie die 8. Zahl ein:\n";
	$z8 = <STDIN>;
	chop ($z8);

if ($o7 eq "+"){
	$erg7 = &addition($erg6, $z8);
}
if ($o7 eq "-"){
	$erg7 = &subtraktion($erg6, $z8);
}
if ($o7 eq "*"){
	$erg7 = &multi($erg6, $z8);
}
if ($o7 eq "/"){
	$erg7 = &division($erg6, $z8);
}
}
if ($wz6 eq "n"){
	print "Ihr Ergebnis ist: $erg6\n";
}
if ($wz6 eq "y"){
	print "Ihr Ergebnis ist: $erg7\n";
}