sub fill_table {     my $datei     = shift;     my $src_path  = shift;     my $delimiter = shift;     my $header    = shift; ...