warte(); our @material = ws($ARGV[1]); # Material und Preis auslesen (json_read) our @gewicht = wiegen(2); our $preis = kosten($gewicht[0], $material[0], $material[1]); # ausrechnen der Gesamtkosten our $preis_gesamt;