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