#!c:/perl/bin/perl

use strict;
use warnings;
use IO::All;
use DBIx::Simple;

my $file = q(data.csv);

my @lines = io($file)->slurp;
my $table = qq(table);

my $db = DBIx::Simple->connect(
        'DBI:ODBC:myDSN',     
        'user', 'password',                
        { RaiseError => 1 }            
);

foreach my $line (@lines) { 
    my @row = ();
    @row = split( ";", $line );
    chomp(@row);
    $row[3] =~ m/\d{12}(\d{12})/;
    my $some_ID = $1;
    $some_ID = int $some_ID;
    foreach my $item ( 1, 2, 3, 4, 5, 8, 9 ) {
        $row[$item] = qq('$row[$item]');
    }
    $db->insert($table, \@row);
}

##</code><code>##

DBD::ODBC::st execute failed: [Microsoft][SQL Server Native Client 10.0]Ungültiger Zeichenwert für Konvertierungsangabe (SQL-22018) 

##</code><code>##

#!c:/perl/bin/perl

use strict;
use warnings;
use DBI;
use IO::All;

my $file = q(data.csv);
my @lines = io($file)->slurp;


my $dbh = DBI->connect( "dbi:ODBC:myDSN", "user", "password" ) || die $!;
my $table = qq(table);
my $sth;
my $sql;

foreach my $line (@lines) {   
    my @row = ();
    @row = split( ";", $line );
    chomp(@row);
    $row[3] =~ m/\d{12}(\d{12})/;
    my $some_ID = $1;
    $some_ID = int $some_ID;
    foreach my $item ( 1, 2, 3, 4, 5, 8, 9 ) {
        $row[$item] = qq('$row[$item]');
    }
    $sql .= qq(INSERT INTO $table VALUES($row[0],$row[1],$row[2],$row[3],$row[4],$row[5],$row[6],$row[7],$row[8],$row[9],$some_ID ););
}

$sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();
$dbh->disconnect();