sub   fill_table()
{
        my $datei       =      $_[0];            # Dateiname
        my $src_path    =      $_[1];            # Pfad zur Datei
        my $delimiter   =      $_[2];            # Separator
        my $header      =      $_[3];            


open (IFILE, "< $src_path$datei") or die "can't open $0: $!\n";

       $z=0;
        while(my $BomLine = <IFILE>)
          {
          $z++;
          my @Bom = split(/\$delimiter/, $BomLine);
          $spalten= @Bom;
          $cols=$spalten;

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