my @preis;
foreach my $keyword ($q->keywords()) {#durchlaufe alle übergebenen Paramter
    if ($keyword =~ m/^preis(\d+)/) {#Wenn der aktuelle Parameter name mit preis und einer
                                     #Zahl beginnt schreibe die Zahl in die spezialvariable $1
        $preis[$1] = $q->param($keyword);#Weise dem Arrayelement $1 den Wert von $keyword zu
    }#if
}#foreach