# Einlesen

print "Bitte 2 Zahlen (mit Komma getrennt) eingeben:\n";

while(<>)
  {
    chop;
    @input = split(/,/,$_);
# im vorigen Beispiel wurde explizit die Liste ($wert1,$wert2) als Ergebnis von split angegeben
# natuerlich kann man auch ganz allgemein eine neue Listenvariable verwenden!

    $resultat = $input[0] + $input[1];
    print "Ergebnis: $resultat\n";
  }



