#!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);
}