#!/usr/bin/perl

use strict;
use DirHandle;

my $file;
my $filename;
my $id = 0;
my $dir = "csv_files";

my $dh       = DirHandle->new($dir);
my @filelist = sort $dh->read();
{
foreach $file (@filelist)

if ($file =~ /datei_(\d+).csv/)
{

$filename = $file;
$filename =~ s/datei_(\d+).csv/$1/;
$id = $1;

# hier kommen noch diverse sql sachen

&update($file);
}
}

sup update{
my ($name) = @_;
print "ID: $id - Filename: $name\n";