for (0..$spalten)
                      {
                        $col=$_;
                        $col=$col+1;
                        $arrayVar->{"$z,$col"} = "$Bom[$_]";
                       }