#!usr/bin/perl -w
use Math::Trig;

print <<HERE_TEXT;
Menue Verzweigung von drei Rechenaufgaben: 

addieren                    <1>
multiplizieren              <2>
subtrahieren              <3>
beenden                   <4>

HERE_TEXT

$addieren = 0;
$multiplizieren = 0;
$subtrahieren = 0;
$ergebnis = 0;

my @zahlen;

chomp ($eingabe =<STDIN>);

# die zahlen werden mit leerzeichen getrennt eingegeben
print "Bitte geben Sie die Zahlen ein:\n";
chomp ($zahlen = <STDIN>);

# zahlen in ein array speichern
# anhand der leerzeichen den eingegebenen string in ein array aufsplitten
@zahlen = split(/ /, $zahlen);

# die 1. zahl aus array entfernen und $ergebnis mit dieser Zahl vorbelegen
$ergebnis = shift(@zahlen);

# alle zahlen die eingegeben worden sind durchlaufen
foreach my $zahl (@zahlen)
{
    if($eingabe ==1)
    {
        $ergebnis += $zahl;
    }
    
    if($eingabe == 2)    
    {
        $ergebnis *= $zahl;
    }

    if($eingabe == 3)    
    {
        $ergebnis -= $zahl;
    }
}

print "Erg: $ergebnis\n";