sub fill_table {
     my ($datei, $src_path, $delimiter, $header) = @_;
...