my $ins_sth = $dbh->prepare('INSERT INTO hobby (id,descr,item,latin) VALUES (?,?,?,?)')|| die $dbh->errstr;
my $csvfile="/home/bradley/dbtest/item_instk.csv";
my $id = 1;
open (CSV,"$csvfile");
while (<CSV>) {
        chomp;
        ($item,$descr,$latin) = split('/',$_);
        $ins_sth->execute( $id, $descr, $item, $latin )||die $dbh->errstr;
        ++$id;
}

close CSV;