foreach(@{$kunde}) {                my ($id,$name,$strasse,$ort,$plz,$vorname) = @{$_};}